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TURN BACKER 
MV-911 (blu) 

Quando il robot si trova davanti ad un 
ostacolo gridare “Look out" e questo 
si girerà immediatamente a sinistra. 


* Movimento: 

3 gambe meccaniche per ogni lato 

* Controllo: 

sensore di suono comprendente mi¬ 
crofono e circuito stampato 

* Alimentazione (non inclusa): 

batterie da 1,5V “AA” x 4 * 
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PIPER MOUSE 

MV - 915 (blu) 

Robot controllato da un sensore di 
suono Supersonico e da un circuito 
elettronico. Usando un fischietto uni¬ 
to al kit PIPER MOUSE eseguirà 
immediatamente i comandi comuni¬ 
cati: sinistra, stop, destra, stop, avanti 
e stop. 


* Movimento: 

3 ruote guidate da 2 motori DC 

* Controllo: 

sensore di suono Supersonico com¬ 
prendente microfono e circuito 
stampato. 

* Alimentazione (non inclusa): 

batterie da 1.5 V “AA” x 2 9V x 1 


SOUND SKIPPER 

MV - 971 (giallo) 

Ordinare al robot di camminare di¬ 
cendo ad alta voce “ Walk” o battendo 
le mani: questo inizierà la sua ‘passeg¬ 
giata’ fermandosi poi da solo. 


* Movimento: 

2 gambe meccaniche 

* Controllo: 

sensore di suono comprendente mi¬ 
crofono/transistor 

* Alimentazione (non inclusa): 

batterie da 1.5 V “N” x 2 




Control 


mwvi 1 

PEPPY 
MV - 916 (rosa) 



Il robot PEPPY è provvisto di un sen¬ 
sore sensibile al suono e a quanto in¬ 
contra di solido sul suo cammino. 
Quando il sensore viene a contatto 
con un ostacolo o percepisce un ru¬ 
more, come un battito di mani, auto¬ 


maticamente il robot gira a sinistra 
con un movimento compreso fra i 90° 
e i 180 1 ’. 

* Alimentazione (non inclusa): 

batterie da 1.5V “AA” x 2 



MEMOCON CRAWLER 


MV - 918 

Questo robot è controllato da una me¬ 
moria RAM 256 x 4 bit, mediante la 
tastiera inclusa nel kit e si muove in 
base ai comandi comunicati a questa 
ultima. 

Sulla tastiera vi sono 5 pulsanti che 
corrispondono ai seguenti movimen¬ 
ti: avanti, destra, sinistra, pausa, suo¬ 
no (ronzio), segnale luminoso. 


* Movimento: 

3 ruote guidate da due motori DC 

* Controllo: 

Memoria/circuito elettronico (me- , 
diante tastiera) 

Elemento ... RAM statica 4 bit 
Comandi ... Destra/Sinistra/Avan¬ 
ti/Pausa/Suono/Segnale luminoso 
(LED) 

Fasi ... 256 fasi approx. 0.7 - 0.3 
sec./i fase 

* Alimentazione (non inclusa): 

batterie da 1.5 V “AA” x 2 9V x 1 













Gli uomini sono fondamentalmente esseri curiosi, 
grandi inventori di strumenti che estendono e 
amplificano i loro sensi. Con questi strumenti 
stabiliscono contatti tra loro, comunicano. «Parlare», ha 
detto Thomas Mann, è la civiltà stessa. 

Durante questo secolo la tecnologia delle 
comunicazioni è diventata sempre più complessa, 
sempre più sofisticata. I campi della conoscenza umana 
diventano sempre più universali. In alcuni di questi 
campi i progressi sono stati velocissimi: nella breve e 
fantastica storia deM'informatica, per fare un'esempio, 
quarant anni di sviluppo scientifico e industriale sono 
bastati per farci vedere quattro generazioni di 
calcolatori (con una quinta in arrivo) e uno stupefacente 
processo di miniaturizzazione di queste macchine. 

Un progresso così veloce ha messo in moto fenomeni 
economici sbalorditivi. Un microprocessore 
relativamente sofisticato costa oggi 4 o 5 dollari; nel 
1971, quando venne commercializzato per la prima 
volta, ne costava 800. Se il prezzo delle automobili 
avesse conosciuto una simile evoluzione, una vettura di 
grande prestigio - una Rolls Royce o una Ferrari - 
costerebbe, oggi, poche decine di migliaia di lire. 

Il poderoso sviluppo del mercato dell'informatica e delle 
telecomunicazioni è continuato: nel 1 983, dicono stime 
realistiche, il giro d'affari, nel nostro paese, è stato di 
oltre novemila miliardi, con incrementi annui superiori al 
20%. Alla fine del decennio, solo negli Stati Uniti, il 
volume daffari del settore supererà i 250 miliardi di 
dollari, come dire 450.000 miliardi di lire, al cambio 
corrente. 

Dobbiamo ormai abituarci a vivere, non solo ad 
assistere, a questa nuova civiltà: la civiltà del computer. 
Lo sviluppo dell'informatica, che si sta accentuando con 
le innovazioni che Giappone e Stati Uniti stanno 
mettendo a punto - già si pensa a marchingegni 
elettronici basati su molecole organiche, vale a dire 
un'elaboratore che «pensa» come un uomo - 
provocherà trasformazioni profonde in tutte le società 
industrializzate. Il nostro paese, come moltissimi altri, 
sta per essere investito da una «ondata» tecnologica 
senza precedenti. 

Per non essere travolta, per sopravvivere, in questo 
mare di tecnologia, l'Italia deve «nuotare», e in maniera 
vigorosa. 

Cifre eloquenti confortano questo fatto. Tra il 1973 e il 
1983, il decennio del decollo dell'informatica, negli 


Stati Uniti sono stati creati 15 milioni di nuovi posti di 
lavoro e 4 milioni di nuovi posti di lavoro sono stati 
creati daM’informatica in Giappone. In Europa, al 
contrario, nello stesso periodo tre milioni di posti di 
lavoro sono mancati. 

La negligenza informatica, nel nostro paese, ci ha 
lasciati a molte lunghezze non solo da USA e Giappone, 
ma anche da paesi europei come la Francia. Quella 
fondamentale «mentalità» informatica, accettata ormai 
anche dalla piccola industria, in Italia, viene ancora 
rifiutata dalle più grandi «aziende» del paese, la Scuola e 
la Sanità, dove sono impiegati il maggior numero di 
laureati e diplomati. Una indagine attendibile afferma 
che quest'anno, in Italia, ci saranno 240 mila nuovi 
posti di lavoro nel settore informatico; una manodopera 
tutta da reclutare e che, probabilmente, non abbiamo 
ancora formato. Dobbiamo, quindi, recuperare in fretta, 
dobbiamo avviare ogni anno centinaia di migliaia di 
giovani in questo settore, per non essere spiazzati, per 
non diventare succubi dei paesi tecnologicamente più 
avanzati. 

L'Italia, dunque, è a un bivio: la civiltà dell'informatica o 
il sottosviluppo. 

LIST, sensibile a tutti i fenomeni che riguardano questo 
importantissimo settore della nostra società, ha deciso 
di trasformarsi anche per dare ai suoi lettori, soprattutto 
ai più giovani, uno strumento che, oltre a divertirli, 
possa diventare utile anche per il loro futuro. Tecnologia 
e cultura avanzano insieme nella storia dell'uomo. 
Perché non nasca una cultura «dell'angoscia», che teme 
la tecnologia, l'uomo deve affrontare i problemi e, per 
affrontarli, deve conoscerli. È una sfida che, 
nell'interesse collettivo, anche noi di LIST vogliamo 
affrontare insieme con i nostri lettori. Per questo ho 
accettato con interesse l'invito, fattomi dall'Editore 
Rubeo di dirigere questo giovane ma già affermato 
periodico. La carta stampata è, ancor oggi, il principale 
mezzo di diffusione della conoscenza e il legame più 
saldo tra il passato e il domani che ci aspetta. E LIST, 
con molte nuove iniziative, di cui vi parleremo nei 
prossimi numeri, conta di offrire ai suoi lettori - con i 
quali vuole costantemente dialogare - la 
documentazione, le anticipazioni e le testimonianze più 
significative del passaggio da questa civiltà industriale a 
quella elettronica che ci aspetta e nella quale vivremo. 

Giuseppe Breve glie ri 
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Espansione 

Possiedo un VIC-20 con cartridge 
di espansione selezionabile fino a 
16K. Mi piacerebbe aggiungere 
però una Super-Expander. È 
possibile tenere inserite 
contemporaneamente le due 
espansioni (ad esempio mediante 
una Mother Board), o se ne deve 
fare uso separatamente? 

Carmine Campo - Cosenza 

La Super-Expander altro non è che 
una espansione di 3K RAM più 4K 
ROM, localizzati all'indirizzo $0400 
- OFFF (1024-4095), ed è simile ad 
altre espansioni da 3 K. 

Con la Super-Expander è possibile 
usare contemporaneamente la 16K, 
ma se la tua espansione prevede 
anche la selezione 3K RAM, allora 
con la S.E. non è possibile 
selezionarla in quanto le due, 
occupando la stessa porzione di 
memoria, entrerebbero in 
«conflitto». 

Commodore 
Load... Error 

Molte volte mi capita che mentre 
sto caricando dal C2N un 
programma, la procedura si 
arresta e viene visualizzato il 
messaggio «LOAD ERROR». 

Che fare per evitare di dover 
iniziare da capo la procedura di 
caricamento? 

Giovanni D Ottavio - Roma 


Quando un programma viene 
salvato su nastro, il sistema fa di 
esso due copie. In fase di 
caricamento viene prima caricata la 
prima copia e poi la seconda: a 
questo punto le due vengono 


comparate e se sono trovate delle 
differenze viene visualizzato il 
messaggio «LOAD ERROR». 

Se l'errore identificato è 
insignificante il programma girerà 
senza problemi: per verificare ciò, 
controllare mediante il counter che 
il numero dei giri di nastro caricati 
corrispondano a quelli del 
programma salvato, quindi X e Y 
delle seguenti linee dovranno 
risultare identiche. 

X = PEEK(45) + 256*PEEK(46) : Y = 
PEEK(174) + 256*PEEK(1 75) 

Anche se il listato è completo e non 
termina con delle linee non aventi 
alcun senso, è il caso di registrare 
nuovamente il programma. 


DA 16K A 48 K 

Possiedo uno Spectrum 16K e 
sarei intenzionato ad acquistare 
un kit per portarlo a 48K. 

Nel caso dovessero presentarsi in 
seguito dei problemi, la mia 
garanzia sarebbe ancora valida? 

Filippo Savi - Genova 

La garanzia purtroppo, caro Filippo, 
non sarà più valida. 

Per contare 
i bytes 

Possiedo uno Spectrum 16K e 
vorrei che mi indicaste come fare 
per riuscire a sapere, mentre sto 
inserendo un programma, quanta 
memoria ho ancora a mia 
disposizione. 

Marco Gianni - Roma 

La routine da inserire è la seguente 
PRINT (PEEK 23614*256 + PEEK 
23613) - (PEEK 23654*256 + PEEK 
23653) 

Titoli 

Potreste suggerirmi una routine 
che permetta al mio Spectrum di 
visualizzare ed eventualmente 
stampare i titoli dei programmi 
presenti su cassetta? 

Marcello Bianchi - Varese 

Una routine vera e propria non 
esiste, possiamo comunque 
suggerire di usare i comandi LOAD 
o VERIF seguiti ad esempio da 
«XXX»: in questo modo lo Spectrum 
andrà alla ricerca del programma 


«XXX» elencando su video quanto 
trova registrato. 

Per la stampa basterà dare un 
BREAK seguito dal comando COPY. £ 

Più colori 

Esistono in commercio dei 
supporti hardware/software per 
aumentare il numero dei colori e 
degli UDG dello Spectrum? 

Costanza Boschi - Venezia 


Per quel che riguarda i colori, cara 
Costanza, non è possibile apportare 
alcuna modifica in quanto questi 
sono prefissati dall'ULA e non 
possono essere cambiati. 

Per quel che riguarda il set dei 
caratteri, per ottenere dei risultati 
veramente eccezionali ti 
rimandiamo all'articolo COMPUTER 
GRAFICA del nostro Massimo 
Truscelli, rubrica NEWS & NEWS, 
pubblicato su LIST n" 5, nel quale è 
stato presentato del software 
adatto allo scopo. 


Spectrum Rom 

Vorrei che mi indicaste le 
«entrate» nella ROM dei seguenti 
comandi: 

BEEP, SCREEN, ATTR, PLOT, 
DRAW, CIRCLE. 

Grazie. 

Edoardo Marchi - Firenze 

Ti suggeriamo, caro Edoardo, di 
rivolgerti ad una libreria 
specializzata della tua città ed 
acquistare un libro che tratti 
l'argomento, poiché quanto da te 
richiesto può variare a seconda dei 
casi. 

Astrologia 

Esiste in commercio del software 
per gli appassionati, come me, di 
astrologia? (Sole, Luna, Pianeti 
ecc.). Possiedo uno Spectrum 
48K. 

Vittoria Urban - Cagliari 

Purtroppo, che ci risulti, non esiste 
in commercio un programma che 
tratti l'argomento Zodiaco richiesto. 
Crediamo che la sola cosa sia 
cercare di crearlo per tuo conto, 
Vittoria, consultando un buon libro 
pubblicato da una Società 
Astrologica. 
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Spectrum 
16K o 48K? 

È possibile determinare al 
momento dell'acquisto, se uno 
Spectrum 48K lo è «realmente» 
oppure se si trata di un 16K? 

Alberto Del Monte - Cattolica 

Digitando 

PRINT PEEK 23733 
il numero che verrà visualizzato sarà 
255 se si tratta di un 48K e 1 27 se 
16K. 

Spectrum 

auto-run 

Come è possibile lanciare un 
programma automaticamente? E 
disegnare quelle immagini che 
vengono visualizzate mentre il 
computer sta ancora caricando il 
programma principale come si 
vede su molte cassette in 
commercio? 

Andrea Bruschi - Roma 

Per l'AUTO-RUN, alla fine del 
programma inserire 

SAVE «nome progr.» LINE... 

In questo modo caricato il 
programma, il computer andrà 
direttamente al numero di linea 
indicato. 

Per quel che riguarda le immagini 
video che spesso accompagnano il 
caricamento di un programma, si 
trata di immagini caricate da un 
primo programmino a se stante, a 
cui fa seguito mediante il comando 
SCREEN$ il caricamento del 
programma principale. 

Mappa 
di memoria 

Che differenza c'è fra la mappa 
della ROM delle versioni 2 e 3 
dello Spectrum? 

I programmi di alcuni miei amici 
sul mio Spectrum 3 non girano. 

Riccardo Baioni - Rieti 

Non esiste differenza a livello di 
mappa di memoria, l'unica 
differenza è nell'ULA, che svolge il 
compito di interfaccia per il 
registratore. 

Alcuni vecchi programmi 
potrebbero, come è accaduto a te, 
non venire caricati. 


Ancora il C2N 

Possiedo un CBM 64 con 
registratore (originale!). Con i miei 
programmi non trovo alcuna 
difficoltà nel caricamento. 
Recentemente però mi sono state 
regalate tre cassette di giochi, 
delle quali però una sola non mi 
ha provocato alcun problema. 

Le altre due infatti non sono mai 
riuscita a caricarle: su una sembra 
addirittura che il computer non 
riesca a «localizzare» nulla. 
Premetto di aver seguito 
attentamente le istruzioni per il 
caricamento inserite in ogni 
cassetta. 

Esiste una ragione precisa per 
quanto mi accade o sono stata 
semplicemente «sfortunata»? 

Barbara Belli - Bolzano 

Sfortuna a parte cara Barbara, i 
motivi per i quali non riesci a 
caricare i due programmi 
potrebbero essere diversi: ad 
esempio la testina del tuo C2N 
potrebbe essere sporca, oppure 
l'allineamento irregolare. Prova 
dunque a verificare quanto detto e 
nel caso dovessi ancora avere dei 
problemi ti consigliamo di riportare 
le cassette al negozio dove sono 
state acquistate, chiedendo 
chiarimenti in merito. 

Cambiare o 
non cambiare? 

Possiedo ormai da un anno uno 
Spectrum 48K. Come tutti i 
programmatori «folli» - o almeno 
credo! - sono giunto al fatidico 
«bivio»: comprare un computer 
più «avanzato» o «completare» il 
mio Spectrum, del quale sono 
soddisfatto, con Interfaccie varie 
e Micro Drive??? Gradirei il Vostro 
parere in merito. Grazie. 

Marco Di Gregorio - Roma 

Tutto dipende, caro Marco, da 
quanto hai già «investito» in 
Software e soprattutto se te la senti 
di iniziare a studiare un nuovo 
BASIC. Classico caso da «rovescio 
della medaglia»: un nuovo e più 
avanzato computer naturalmente ti 
darebbe la possibilità di ampliare le 
tue capacità nella programmazione: 
ma se già possiedi una buona 
biblioteca di Software e soprattutto 


se soddisfatto del tuo computer, 
potresti cercare di migliorarla, 
mentre nel caso di una nuova 
macchina dovresti ricominciare 
tutto da capo! 

Problema 
di variabili 

Possiedo uno ZX-Spectrum ed ho 
trovato delle difficoltà con l'UDG: 
non sono riuscito a convertire dei 
numeri binari in decimali usando il 
comando BIN. 

Dopo vari tentativi sono venuto 
alla conclusione che mentre il 
computer riesce a convertire i 
numeri binari inseriti direttamente 
come nel caso di 

PRINT BIN 10011001 
non riesce invece a convertire 
LET A = 10011001 : PRINT BIN A 
Potreste suggerirmi come 
risolvere il problema? 

Antonio Rolandi - Taranto 

Le variabili non sono progettate per 
accettare un numero come 
1001 1001 : tutto quello che il 
computer «capisce» nell’esempio da 
te portato è semplicemente: dieci 
milioni, undicimilauno. 

Auto-verify 

... cosa potreste suggerirmi in 
merito all'AUTO-VERIFY? 
Possiedo uno ZX-Spectrum. 

Simone Martini - Pisa 

Per il VERIFY automatico puoi 
aggiungere alla fine dei tuoi 
programmi la seguente linea: 

9999 CLS: SAVE "nome progr." 
LINE 0: SAVE "nome" CODE 65120, 
41 5: VERIFY "nome progr.": PRINT 
"progr. O.K.": VERIFY "nome" CODE: 
PRINT "code O.K." 
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NUMERINO 


Lo Soectrum memorizzerà un numero 
composto da 3 a 8 cife, secondo il livello di 
difficoltà selezionato. 

Con quanti tentativi ed in quanto tempo 


riuscirete ad indovinarlo??? 

Ricordato che il numero memorizzato può 
contenere più volte la stessa cifra! 
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Computers 
come «arma» 

A Londra tre ragazzini terribili 
«armati» di personal computer, 
hanno seminato il caos nel Prestel, 
la più estesa rete di informazione 
britannica. 

Il Prestel è un servizio della British 
Telecom che permette agli abbonati 
muniti di un terminale 
computerizzato, di ricevere 
informazioni, scambiare messaggi 
ed effettuare operazioni bancarie. 
Ogni abbonato ha un codice 
personale e l'accesso al servizio è 
sbarrato da un altro codice 
ultrasegreto. I tre ragazzini 
londinesi, con un personal da 200 
sterline (circa mezzo milione di lire) 
e un normale apparecchio televisivo, 
hanno ingegnosamente «bucato» il 
codice ultrasegreto del Prestel e 
sono entrati nel sistema. In questo 
modo si sono divertiti a cambiare, 
in meno di un minuto, i listini di 
borsa, il cambio delle valute, e 


hanno decifrato il codice di altri 
utenti. Hanno letto anche i 
messaggi che il Principe Filippo, 
cliente del Prestel, ha inviato alla 
Principessa Diana per il suo 
compleanno. Il contatto tra il 
computer e il sistema Prestel viene 
stabilito attraverso la rete telefonica 
con un apparecchietto ormai 
abbastanza diffuso che si chiama 
«modem» (costo: poco più di 200 
mila lire). 

L'incidente ha messo in serio 
imbarazzo la British Telecom che ha 
dovuto cambiare tutti i codici 
d'ingresso. Lo scorso anno un altro 
gruppetto di ragazzini terribili 
«armati» di personal avevano messo 
in difficoltà i Servizi Segreti degli 
Stati Uniti perché erano «entrati» 
nella memoria di uno dei calcolatori 
del NORAD, nei monti Cheyenne, nel 
Colorado, dove c'è tutto l'apparato 
di controllo antimissilistico 
dell'aeronautica statunitense. 



Il robot 
intelligente 

Si chiama Robint - Robot 
Intelligente - . È costato cinque anni 
di lavoro e 1 5 miliardi di lire. Questo 
ultrasofisticato robot è stato 
realizzato in Italia, dalla Mandelli di 
Piacenza, una delle aziende più 
avanzate d'Europa in questo settore. 
Robint entra nel mercato nel 
momento giusto, quando sta per 
cominciare, cioè, l'era della fabbrica 
automatica. 



Lo Stato 
informatizzato 

La burocrazia del nostro paese è 
combattuta da un dilemma: da una 
parte conserva l'anima ottocentesca 
da amanuense e dall'altra aspira ad 
averne una tecnologicamente 
avanzata, informatizzata. Il 65% dei 
dipendenti statali nel nostro paese, 
raccoglie e suddivide informazioni, 
ma lo Stato ha solo due terminali 
informatici ogni 400 dipendenti 
mentre l'Italia, nella sua globalità, ha 
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due terminali informatici ogni 100 
lavoratori. 

Per questa ragione, due Ministeri, 
quello della Ricerca Scientifica e 
"■ecnologica e quello della Funzione 
Pubblica hanno, ognuno, istituito 
una Commissione informatica per 
studiare come deve essere diffusa 
informatica negli organi dello 
Stato. Sono in gioco interessi 
enormi sul piano della produttività e 
m campo sociale. 

Lo Stato, dunque, si rende conto 
che occorre una generale presa di 
coscienza delle grandi possibilità 
cf\e gli strumenti informatici 
possono portare nella Pubblica 
Amministrazione, anche perché, 
come risulta da una indagine del 
Censis , quasi tutti i dipendenti dello 
Stato vedono con favore la 
sostituzione della «memoria» 
individuale con quella del computer. 



Elaboratori 
da primato 

Gli elaboratori con gli occhi «a 
mandorla» stanno conquistando 
grandi primati. Un nuovo elemento 
di memoria per computers, 
sviluppato in Giappone, può 
«ricordare» in meno di un 
miliardesimo di secondo (0,85 
nanosecondi) una informazione da 
trasmettere all'elaboratore. Il tempo 
impiegato da questo dispositivo è 
di quattro volte inferiore a quello 
impiegato dai calcolatori oggi 
utilizzati. Il dispositivo elettronico 
messo a punto dai giapponesi 
lavora a 25 gradi centigradi - a 
temperatura ambiente, quindi - 
mentre altri elaboratori ultraveloci 
funzionano a bassissime 
temperature (intorno a meno 200 
gradi centigradi) poiché sono stati 
realizzati con la tecnica della 
cosiddetta «giunzione Josephson». 
Questa memoria super veloce è 
stata messa a punto da un gruppo di 
ricerca giapponese che lavora 
nell'ambito del piano nazionale 
nipponico per l'informatica, un 
piano coordinato dal MITI, un 
organismo governativo che si 
occupa, tra l'altro, della tecnologia 
avanzata del paese. 



La Borsa 
elettronica 

L'elaboratore elettronico è diventato 
il «re» della Borsa di Parigi. Da un 
paio di mesi, in Francia, è 
cominciata la rivoluzione del 
sistema valori. Le Azioni e le 
Obbligazioni della Borsa di Francia, 
infatti, non verranno più stampate 
su carta pregiata: si 
smaterializzeranno per entrare nella 
memoria di un sofisticato computer. 
Chi possiede titoli, in Francia, deve 
entro il 2 Maggio 1988, depositarli 
in banca, o presso un agente di 
cambio, se non vuole perdere 
dividendi o interessi. Solo i valori 
stranieri e qualche prestito dello 
Stato sfuggiranno a questa 
rivoluzione elettronica della Borsa di 
Francia. I titoli di carta depositati, 
dopo essere stati registrati nella 
memoria dell'elaboratore, vengono 
mandati al macero. 

Gli esperti hanno calcolato che di 
qui al 1988 alcune centinaia di 
tonnellate di titoli finiranno 
nell'inceneritore. I vantaggi del 
nuovo sistema di computerizzazione 
della Borsa francese sono evidenti, 
dicono gli esperti. Tutte le 
operazioni manuali vengono 
eliminate (talloncini da ritagliare, da 
verificare, da catalogare ecc.) con un 
risparmio del 20% sul personale e di 
80 miliardi di lire l'anno. Gli esperti 
hanno calcolato anche che una 
società che decide di aumentare il 
capitale, risparmia i circa 200 
milioni di lire che le occorrerebbero 
per stampare 800 mila azioni. 

Il nuovo sistema - che si chiama 
Sicovam - dà ai possessori di titoli 
la garanzia della velocità delle 
operazioni, e il riparo dai furti e dagli 
smarrimenti. 



LIST for president 

Nel grande sogno americano tutti 
possono ambire alla Presidenza- 
anche tu! 

In «Election Trail» dell'Amplion, 


infatti, non c'è bisogno di 
dimostrare alle folle di essere un 
brillante oratore, o un «americano al 
1 00%»: tutto quello che si deve fare 
è sedersi davanti al video e cercare 
di fronteggiare gli eventi. 

Si può impostare la Campagna 
elettorale contro il computer o 
contro un altro giocatore, cercando 
di ottenere, mediante strategie 
varie, quanto più denaro possibile 
per i tours Elettorali nei vari Stati. 
Alle conferenze stampa è implicito 
che si devono usare parti di 
discorso pre-determinate alle quali i 
«giornalisti» presenti possono 
comunque attribuire significati 
«personali». 



MSX computers 

I costruttori del Sol Levante sono, 
dunque, alla riscossa: ecco infatti 
aggiungersi ai già noti Sony, Sanyo, 
ecc. lo SPECTRAVIDEO SV 1-728 
provvisto di porta per cartridge 
MSX. L’SVI è dotato di 16K Ram 
video separati dai principali 64K 
Ram. Disponibile anche il Drive da 
300K. 



È in arrivo LINGO 

LINGO è un nuovo gioco simile nella 
concezione al notissimo 
SCARABEO, il cui scopo però è di 
formare frasi anziché singole parole. 
Ad ogni giocatore vengono 
assegnate a caso 12 parole ed un 
«pozzetto» di parole e congiunzioni 
con le quali si deve appunto cercare 
di formare una frase. 



Peter Pan & Co. 

Un nuovo gioco dedicato ai più 
piccoli è PETER PAN THE 
ADVENTURE GAME. 

Presenti tutti i personaggi della 
notissima favola: Wendy, il capitano 
Hook, i pirati e, naturalmente, Peter 
Pan e la sua banda. 





















MORRA 


È un gioco che forse molti ricorderanno 
quando veniva eseguito nelle strade e nelle 
piazze dai ragazzi che le frequentavano. 

In questa versione ha perso un po' del suo 
fascino per la freddezza dell'avversario. 

Buona è la grafica. Si gioca indovinando quale 
dei tre simboli è stato scelto dall'avversario e 
rispettando una certa periodicità dei simboli 


che «vincono» oppure «perdono» in base al 
valore del simbolo avversario. 

Nella versione originale del gioco un fattore 
determinante è la velocità. 

In questo caso, per la struttura stessa del 
gioco, si può in un certo senso farne a meno, 
perdendo però il sapore, l'essenza del gioco 
stesso. 
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• 0 CLS : COLORI, ! 1 

2 9 .. RSOR 15,3 

J0 • - NT |: fi 0 R R A " 
c ?j u i NEL$ C 3.1 

50 El$ C 1 1 - " SASSO" :EL$(23="FORBICE" :EL$ 
r30 - CORTO" 

60 CURS0R2,10 

70 INPUT "UUOI LE ISTRUZIONI ? ";N$ 

80 IF N$= ,: Sr i THEN 540 

90 CLS --CURS0R2, 1 0 : P=0 ; P1 =0 : U1 =0 :PE=0 

100 INPUT "QUANTI TIRI UUOI GIOCARE ? 

** JC 

110 FOR 1=1TO500:NEXT I 
120 P=P+1 : IF P>C THEN 390 
130 CLS : CURS0R2, 2 : IF P = C THEN 150 
140 PRINT"TIRO N. ";P:GOTO 160 
150 BEEP ; PRI NT"ULTI HO TIRO 2" 

160 CURS0R6,6 

120 PRINT "1 SASSO" 

180 CURS0R6,8 

190 PRINT " 2 FORBICE" 

200 CURS0R6 j 10 

210 PRINT "3 CARTA" 

220 CURS0R2, 18 : INPUT "COSA SCEGLI ? 

S 

230 IF S <10RS>3 THEN 220 
240 RN=INTCRNDC 1.1*33 + 1 
250 CURSOR0,18 
260 IFRN=S THEN 340 
270 ONRNGOT0 280,300,320 
280 IF S=3 THEN 350 
290 IF S=2 THEN 360 
300 IF S=1 THEN 350 
310 IF S=3 THEN 360 
320 IF S=2 THEN 350 
330 IF S=1 THEN 360 

340 PRINT" PARI 2 IO AUEUO GIOCATO " ;E 

L$CRNj :P1=P1+1 :GOTO 370 

350 PRINT" HAI UINTO 5 IO AUEUO GIOCAT 

0 " ;EL$CRN) :U1=U1 + 1 :GOTO 370 

360 PRINT" HAI PERSO 2 IO AUEUO GIOCAT 

0 " ;EL$CRN3 :PE=PE + 1 

320 FOR 1=1 TO 300■NENT I 

380 GOTO 110 

390 CLS »CURS0R5,2:PRINT" TIRI GIOCATI 

* I: IC 

400 CURSORI, 10 :PRINT" TIRI PERSI : " 

;pe 

410 CURSORI , 12 :PRINT" TIRI UINTI : " 

;ui 


420 CURSORI, 14 :PRINT" tiri PARI 
;P1 

430 CURSORI,18 

440 IF PE>U1 THEN 470 

450 IF PE<U1 THEN 480 

460 PRI NT"SI ANO PARI 2":GOTO 490 

470 PRINT"HAI PERSO 22":GOTO 490 

480 PRINT"HAI UINTO 22" 

490 FOR 1=1 TO 1000:NEXT I 
500 CLS :CURS0R2, 10 

510 INPUT "UUOI GIOCARE ANCORA ? " ;Q$ 
520 IF Q$="SI" THEN 90 
530 CLS :END 

540 CLS : PRI NT"Horra e’ un gioco per un 
giocatore " 

550 PRINT "impegnato contro i l compute 
r . " 

560 PRIN T "Il giocatore, all’inizio de 
l gioco, " 

570 PRINT "deue sceg l i ere i l numero de 
i t i r i " 

580 PRINT "che uuole effettuare." 

590 PRINT "Successiuamente doura’ digi 
tare 1, 2" 

600 PRINT "o 3 per scegliere sasso, fo 
rb i ce o " 

610 PRINT "carta." 

620 PRINT "Se ;l simbolo scelto dal gì 
ocatore " 

630 PRINT "sara’uguale a quello scelto 
da l corri-" 

640 PRINT "puter,s i aura’par ita’ . 

650 PRINT "In caso contrar io,uà lgonole 

!» 

660 PRINT "seguenti regole:" 

670 PRINT "Sass0:UINCE con forb./PERDE 
con carta" 

680 PRINT "F0r b. :UINCE con carta/PERDE 
con sasso" 

690 PRINT "Carta:UINCE con sasso/PERDE 
con forb." 

700 PRINT " Alla fine del gioco,appari 
ra’ i l " 

710 PRINT "punteggio finale. 

720 CURSOR 0,21 

730 INPUT "Per iniziare,batti un tasto 
qu a l s ia s : ";T$ 

740 IF T=25 THEN 740 
750 GOTO 90 
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MASTERMIND 


Finalmente uno dei giochi d'intelligenza più 
conosciuti, adattato per il Sega SC-3000. La 
struttura del gioco è quella classica; un numero 
di cinque cifre da indovinare. Un punto per 
ogni cifra indovinata ed altrettanti per ogni 


cifra indovinata e posta nella giusta 
successione. 

Abbastanza semplice e nel contempo sempre 
divertente. 



io 




























1 0 CLSJC0L0R1,11:CC=4:K=0 

20 R=I NT CRND C1 .1*93 

30 B=INT CRNDC13*93 

40 IFB=RTHEN130 

50 C=INTCRNDC13*93 

60 I FC-'RORC = BTHEN50 

20 D=INT CRNDC13*93 

80 IFD=RORD=BORD=CTHEN70 

90 GOTO 140 

100 PRINTTRBC123 

110 PRINTTRBC123 ;"ttNRSTER MIND#" 

120 PRINTTRBC 123 ;"##############" 

130 RETURN 

140 GOSUB 100 : IFB1=1THEN170 

150 PRI NT l! : INPUT i: UUOI LE REGOLE ? ", 

R$ 

160 IFR$="SI" THEN GOTO 650 

170 CLS - GOSUB 100 

180 PRINT" :: : INPUTI 

190 IF I<9999 THEN 230 

200 C.C=CC + 2 :BEEP2 :K=K+1 

210 IF K=9 THEN 440 

220 GOTO 180 

230 GOSUB 260:K=K+1 

240 IFK=9 THEN 440 

250 GOTO 180 

260 SS=0 :BB-0 

270 R1=INTC1/10003 

280 B1=INTCCI-Hl*10003/1003 

290 C1 = INTC CI-CR1*1000+B1*1003 3/103 

300 D1=I-CA1*1000+Bl*l00+01*103 

310 IFR1=B1ORR1-C10RR1=D1ORB1=C1ORB1-D 

1 ORO 1=D1 THEN 490 

320 IF R1=R THEN SS=SS+1 

330 IFB1=B THEN SS-SS+1 

340 IF C1=C THEN SS=SS+1 

350 IF D1-D THEN SS-SS+1 

360 IFSS--4 THEN 520 

370 IF R.1 -BORO 1 --CORH1 =D THEN BB -BB+1 
380 IF B1 =RORB1=CORB1 =DTHENBB r -BB+1 
390 IF C1=RORC1=BORC1-D THEN BB-BB+1 
400 IFD1-RORD1=B0RD1=C THEN BB=BB+1 
410 CURSORI 5,CC 

420 PRINTSSl" STRIKE ",BB,' : BRLL " 

430 CC-CC+2 -RETURN 

440 FOR J = 1 TO 3 :T=1100 

450 FOR J 1 =1 TO 30 : T--T-30 


: 460 SOUND 1,T,15 :NEXT J1:NEXT J -SOUND0 
47-0 PRINT" ":PRINT"SEI SCRRSO 2 2 2 HRI 
RRTTO 9 TENTRTIUI " :PRINT" 11 
480 GOTO 590 
490 CC-CC+2-BEEP2-K=K+1 
500 IF K=9 THEN 440 
510 GOTO 180 
520 BEEP=BEEP :BEEP:BEEP 
: 530 IF K>4 THEN 570 
540 PRINT" ":PRINT"B R R U 0 25" 

550 PRINT J"HRI INDOUINRTO IN ";K+l;" T 
ENTRTIUI" 

560 GOTO 590 

570 PRINT" " :PRINT"DISCRETO 52 " 

580 PRINT J"HRI INDOUINRTO IN " ;K+l;" T 
ENTRTIUI" 

590 PRINT"IL NUNERO DR INDOUINRRE ERR 
" ;RJBJCJDSPRINT" " 

600 INPUT "UUOI GIOCRRE RNCORR ? ";R$ 

610 IF R$="NO" THEN 630 

620 BI —' 1 : GOTO 10 

630 PRINT"C I R 0 5222" 

640 END 

650 CLSSPRINT" " 

660 PRINT"Ho scelto un numero di quatt 
ro cifre" -PRINT" " 

670 PRINT"che tu doorai indovinare. 
:PRINT" " 

680 PRINT"Per far ciò’ dopo ogni ? dov 
rai digi:PRINT" " 

690 PRINT"tare un numero di 4 cifre di 
verse tra " :PRINT" " 

700 PRINT"loro. Io ti indicherò’ con ’ 
STRIKE’ il" 

710 PRINT"numero delle cifre che sono 
present i " SPRINT" " 

720 PRINT"nel numero da indovinare in 
dos izio-" :PRINT" " 

730 PRINT"ne esatta e con ’BRLL’ il nu 
mero " :RRINT" " 

740 PRINT"delle cifre presenti ma in p 
osizione"JPRINT" " 

750 PRINT"errata.":PRINT" " 

760 PRINT"Hal a disposizione 9 tentati 
vi." 

770 FOR XX=1 TO 7000= NEXT XX 

780 CLS :BEEP2:BEEP0:GOSUB 100:GOTO 180 
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NUMERAZIONE AUTOMATICA 


Una comoda utility in linguaggio macchina 
sicuramente apprezzata da tutti i provetti 
neo-programmatori. Permette di numerare 
automaticamente il programma usando come 
numero di partenza la linea 10 e proseguendo 
nella numerazione a STEP di 10. La versione 
presentata è adattibile alla versione base del 
VIC. 

Dopo aver digitato correttamente il 
programma, pena il blocco del sistema, digitare 
RUN «RETURN»; di seguito, premendo la 


SPACE BAR vedrete comparire la numerazione 
automatica delle linee ed il posizionamento del 
cursore «PROMPT» in attesa delle istruzioni 
Basic. Se vorrete temporaneamente 
interrompere la numerazione automatica, 
basterà digitare SYS 4096; il programma vi 
spiega come riprendere la numerazione 
dall'ultimo numero di linea. 

Se preferite annullare tutto e ricominciare 
daccapo allora digitate SYS 7500. 

Buon lavoro!... 



50 DATA96,165,211,201,1,208,6,169 
60 DATA32,197,197,240,3,76,191,234 
70 DATA 169 ,0,133,2 1 1 , 169,48,162,4 
80 DATA213,0,208,5,202,224,255,208 
90 DATA247,232,134,198,160,0,136,181 
100 DATA0,153,119,2,200,202,224,255 
110 DATA208,245,230,198,169,32,153,119 
120 DATA2,162,1,246,0,169,58,213 
130 DATA0,208,9,169,48,149,0,232 
140 DATA224,5,£08,239,76,191,234 
150 Z=0 

160 FORX=7500TO7610 
170 READA:Z=Z+A!POKEX,A 
180 NEXTX 

190 IFZ<>13823THENPRINT'ERRORE NEI DAT I ": END 
200 PRINT”iJ NUMBER 3PTTIV AT03" 

210 PRINT-HB PREMI < SPACE > PER LA NUMERAZIONE" 

220 PRINT" AUTOMATICA." 

230 PRINT“HH SYS 7500 = ON” 

235 PRINT" SYS 4096 = RESET" 

240 PRINT” SYS 7514 = RENUM.“ 

245 SYS7500 
250 NEW 
READY. 
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PRINTER 20 

di STEFANO RONCONI 


Trasformiamo il nostro VIC 20 in una 
sofisticata macchina da scrivere elettronica. 

Il programma permette di: 

- effettuare correzioni direttamente sul video 
mediante il tasto INST DEL 

- ottenere il set maiuscolo premendo il tasto 
SHIFT e di bloccarlo con il tasto SHIFT-LOCK 

- andare a capo con il RETURN 

- tornare alla prima riga immessa con HOME 

- cancellare il testo in memoria con CLR 


- spostare l'immagine del foglio con CRSR UP 
e CRSR DOWN 

- cambiare la spaziatura delle righe con CTRL 
+1, CTRL +2, CTLR +3 

Il testo battuto può essere salvato su nastro (o 
disco) e riportato su carta mediante la 
stampante. 

Ricordate che nella versione base del VIC 
(3,5K) dopo circa 40 righe di testo battute la 
memoria comincia a scarseggiare. 


READY. 


o 



1 REM********************** 

2 REM* PRINTER 20 * 

3 REM* DI STEFANO RONCONI * 

4 REM********************** 

100 DIMW*<£5>,P$<£00)!P0KE36879,104 
ii0 uj*= 

120 F0RI = 1T025:UIS< I >=LEFT*<W*, I > : NEXT 
130 PRINT" J"CHR*<8);CHR«<14) 

140 Al$=”a ■" 

150 LY.=0:SP=1 

170 GOSUB50000!GOSUB14000 

400 REM 
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420 GOSUB14000 

430 I FFRE < 0 ) < 500THENPR I NTUJ$ < 22 ) " SSi “PC A MEMORIA! : GOSUB 1 4000 

440 IFFRE <0 ) < 100THENPR INTW$ <22 ) "dSB -INE MEMORIA : FM= 1 : GOSUB 14000 


10000 

B$="":L = 0 

1000 1 

GETAS:IFA*=""THEN10001 

10005 

IFA*= " II" THEN1 000 1 

10010 

A=ASC<A*>:POKE7900+L,32 

1001 1 

IF A =144THENSP =1:P0KE7922,177 : GOTO 10001 

10012 

IFA=5THENSP = 2:P0KE7922, 178 : GOTO 10001 

10013 

IFA=28THENSP = 3sP0KE7922,179 : GOTO 10001 

10014 

IFA=139THEN53000 

100 16 

IFA=147THEN13000 

100 17 

I FA = 19THENLY.=0 : GOSUB 14000 : GOTO 10000 

100 18 

10020 

IFA=34THENPR INT"a' "? :B3?=B*+" ' " : GOTO 10055 

I FA = 20THENI FLEN < B$ ) >0THENPR I NT " Il II"; : BS=LEFT$<B*,LEN<B*0 - 1 > IL-L-H 
POKE7900+L,30 

1002 1 

IFA=137THEN51000 

10022 

10025 

10026 

IFA =138THEN52000 

IFA = 1 45THENL‘/.=LZ + < L’^>0 > : GOSUB 1 4000 : GOTO 10000 

I FA = 1 7THENL/.==L/.- <L/.<200 ) : GOSUB 14000 : GOTO 10000 

10039 

IF A =13THEN10999 

10040 

IFA<32GRA>218THEN10001 

10050 

IFFMTHENGOTO10001 

10060 

L =L + 1 ;B$=B$+AfiPRINT"M ,l fì$; 

10070 

IFL =22THEN10999 

10030 

POKE7900+L,30:GOTO 1000 1 

10999 

PSKL/.) =Bf ! LZ=LZ+SP : M=M+ 1 : GOTO400 

13000 

PR I NTUJ$ <21 > "SICURO ?<*//> " ; : INPUTA3?: IFAS< >"S M ftNDft*< >"N"ANDA$< >"*" 
ANDATO" /" THEN 13000 

130 10 

IFA^="N"ORA$="/"THEN130 

13020 

FORI=0TO200:P^CI ) = ”":NEXT: GOTO 130 

14000 

P0KE7922,176 + SP:POKE30720 +7922,1 

14005 

C*=RIGHT*< "OOO"+MID* «CSTR^CL%) ,2) ,3) 

14006 

140 10 

14015 

printujsk i£) spc <8) " *a< "C*" >" 

FOR I =0TO9 : I F 1 >L/.THEN 14020 

PRINTW$< 10-1 ) ,, a ,, Al^ ,, na ,, P^<L/-I ) :GOTO14030 

14020 

PR INTUÌ*<10-1>"■"Al* 

14030 

NEXT : PR INTUJ* < 10 ) ; 

14999 

RETURN 

50000 

PR I NTUJ* (14)" INTER 20 _JONCONI V. " 

50005 

PRINTW$C12)"ai 

500 10 

5001 1 

PRINTU1*< 16) "a-LR : CANCELLA IL TESTO"; 

PRINT“ IOME:TORNA ALL’INIZIO" 

50012 

P RINT"—2 : SALVA IL TESTO" 

500 13 

PRINT"—4 : CARICA UN TESTO” 

50014 

P RINT"—6 : STAMPA IL TESTO" 

50999 

5 1000 

RETURN 

PR INTUÌ* (2 1 ) "M/OME: " 

5 1030 

PRINTUI*<2 1)TAB <5); : INPUTB*: IFB* =“"THEN51030 

5 1040 

OPEN1 ,1,1 ,Bf:PRINT#1 r M:FORI=0TOM:PRINT#1,P*< I):NEXT:CLOSEl 

5 1050 

GOTO 130 

52000 

PR INTUÌ* (2 1 ) "SUI AVVOLGERE IL NASTRO" 

52030 

52040 

GETA*:IFA*=""THEN52030 

OPEN1,1,0,B*:INPUT#1,M:FORI=0TOM:INPUT#1,P*<I):NEXT:CLOSEl 

52050 

53000 

READY. 

LX=1 : GOTO 130 

0PEN9,4 ,7:FORX=0TOM:PRINT#9,P*<X):NEXT:CL0SE9: GOTO 130 


14 





































SU E GIÙ PER LA PENISOLA 



Sicuramente molti dei nostri lettori adulti 
avranno trovato difficoltà ad impegnare i figli 
nello studio della geografia: il programma che 
presentiamo consentirà di imparare 
rapidamente, quasi giocando, i nomi e le 
posizioni geografiche dei capoluoghi di regione 
e di provincia italiani. 

Il programma è piuttosto lungo, pertanto la 
seconda parte verrà pubblicata nel prossimo 
numero della rivista. Il listato di questo 
numero, comunque, consente di eseguire in 
modo completo la prima parte del gioco, 
riguardante i capoluoghi di regione, e contiene, 
inoltre, alcune istruzioni della seconda parte, 
relativa ai capoluoghi di provincia. 

Il funzionamento del gioco è molto semplice; 
sulla cartina della penisola lampeggeranno via 
via dei punti nella posizione geografica dei 
capoluoghi di regione: occorrerà fornire il 
nome esatto della città e, ad ogni errore, il 
computer vi aiuterà stampando una o più 
lettere del nome da indovinare. 

ATTENZIONE - Come già segnalato nei 
precedenti numeri della rivista, in alcune 
stringhe sono inseriti caratteri grafici 
(accessibili da tastiera mediante il tasto 
«GRAPH») che la plotter ha stampato in forma 
di codici ASCII esadecimali: nel listato tali 
codici sono sottolineati. A pag. 156 del 
manuale è riportata la tabella completa dei 
caratteri grafici con i rispettivi codici; ad 
esempio, il codice «C8» che compare molto 
spesso nel listato, è relativo al carattere grafico 


che si ottiene premendo (dopo il tasto 
«GRAPH») la lettera «F» insieme al tasto 
«SHIFT». 

10-120 - Presentazione del gioco con titoli e 
istruzioni; vengono dimensionati i vettori 
relativi alla posizione sulla cartina (X(20) e 
Y(20)) e al nome (CR$(20)) delle città; viene 
scelta la parte del gioco da eseguire (R.120). 

1 30-200 - Routine capoluoghi di regione. La 
variabile ER per il conteggio degli errori è 
azzerata, viene stampata la cartina della 
penisola mediante la subroutine 5200 e 
vengono letti i dati della posizione e del nome 
delle città (R.130). L'ordine di apparizione dei 
capoluoghi viene cambiato in modo casuale 
(R.140) ed il primo punto sulla cartina comincia 
a lampeggiare (R.1 60). Viene richiesto il nome 
della città (R.1 70): se è giusto sono cancellate 
le eventuali lettere fornite come aiuto e si 
prosegue con il nome successivo (R.1 70), 
altrimenti il numero di errori commessi viene 
incrementato e si visualizzano una o più delle 
lettere prese dalla parte sinistra del nome da 
indovinare (R.1 80) quindi si procede ad un 
altro lampeggio (R.1 60) dello stesso 
capoluogo. 

210-330 - Routine capoluoghi di provincia. Si 
azzera la variabile ER mentre vengono letti i 
primi 60 «DATA» per escluderli dalle 
successive letture; si definiscono i codici dei 
colori (C e D) per i successivi lampeggi delle 
regioni sulla cartina (R.1 20). Viene stampata la 
cartina della penisola (R.220) e su di essa 


15 

































lampeggiano uno alla volta le regioni (R.230), 
quindi ciascuna di esse viene visualizzaa 
singolarmente (R.240): i dati grafici per queste 
operazioni sono inseriti nelle 20 subroutines 
che vanno da riga 5300 a riga 7280 e 
costituiscono la parte che sarà pubblicata nel 
prossimo numero di LIST. Viene richiesto il 
nome della regione (R.250), quindi 
lampeggiano i capoluoghi di provincia 
(R.270-290) seguiti da analoga domanda: 
eventuali errori sono gestiti dal programma in 
modo simile a quanto già descritto nella 
routine precedente (R.260 e 310). 

5000-51 20 - Subroutines musicali o di pausa 
o fermo esecuzione programma. 

5200-5240 - Subroutine per la visualizzazione 
della penisola: la cartina viene ottenuta 
mediante stampa di strisce orizzontali 
successive di caratteri grafici. 

0000-10100 - Elenco dei «DATA» con le 
posizioni ed il nome dei capoluoghi per la 
prima (R.10000-10010) e per la seconda parte 
del gioco (R.10020-10100). 


10 REM*SU E GIU'' PER LA PENI SOLA* 

20 PEH*BY E.FABRI2I-1984* 

30 REM*SHARP M2-700* 

40 REN*TITOLI E ISTRUZIONI* 

50 COLOR,,0,6:PRINT"E":F0RK=1T038:C0L0RK 
, 1 , , 2 :NEXT:F0RK=2T023:COLOR38,K,,2:NEXT; 
FGRK=37T01 STEP - 1 :C0L0RK,23, , 2 :NEXT :F0RK = 
22T02STEP-1 -COLOR 1,K,,2:NEXT 
60 F0RK=2T037iCOLORK,2,,7:NEXT:F0RK=3T02 
2:C0L0R37,K,,7 : NEXT:F0RK=36T02STEP -1 :C0L 
ORK,22,,7 :NEXT:F0RK=21T03STEP-1 :C0L0R2,K 
, , 7 .-NEXT 

70 FÒRK=3TQ36iCOLORK,3, , 4 .‘NEXT :F0RK=4T02 
i :C0L0R36,K, , 4 r-NEXT :F0RK--35T03STEP-1 :C0L 
ORK,21,,4 ;nEXT:FORK=20TO4STEP-1 :C0L0R3,K 
,,4 :NEXT 

80 T 1 $ = "SU E GIU' PER LO PENI SOLOS |: -T2$ = 
"QUIZ GEOGRAFICO":T3$="di E.FABRI2I"-CU 
PS0R7,6 :F0RK=1T0LENCT1$3:PRINT[7,11MID$C 
T1$,K, 1 .1 ; :GOSUB5000:NEXT 
90 CURSORI 2,9:F0RK=1TOLENCT2$3 SPRINT[7,1 
1NID$CT2$,K, 1 I ; :GOSUB5000:NEXTCURSORI 4, 

1 3 :F0RK=1 TOLENCT3$3 :PRINT[7,0]NID$CT3$,K 
,13;1GOSUB5000:NEXT1GOSUB5020:GOSUB5060 


100 COLOR,,7, 1 :PRINT"0":PRINTTABC7D"SU E 
GIU' PER LA PENISOLA" :PRINT"BSaE1 Capo! 
uogh i di re 9 1 one " : PRI NT "BEI2 Capoluoghi d 
! prouincia"1CURSOR0,23:PRINT"Sce9Ii un 
nume r o " 

110 GET2:1FC2=03 + CZ>23THEN1 10 

120 DINXC203,YC203,CR$C203,DC203:ONZGOTO 

130,210 

130 PRINT"@":CURS0R9,7:PRINT"CAPOLUOGHI 
□I REGIONE":ER=0iGOSUB5010:GOSUB5060:GOS 
UB5200 :GOSUB5240:REST0RE =F0RJ = 1TO20:READ 
XCJ 3 ,YCJ3,CR$CJ3-NEXT 

140 F0RF=1TO20:DCF3=F =NEXT:F0RF=1TO20:X1 
= INTCRNDC13*20+13 :Y1=INTCRNDC13*20+13 =X2 
=DCX13 :DCX13=DCY13 =DCY13=X2 : NEXT: COLOR,, 

0 , 6 

150 F0RF=1TO20:K=DCF3=A=0 
160 F0RJ=1TO10:GOSUB5000:POKEXCK 3+2048,6 
8:GOSUB5000:P0KEXCK3, YCK3=P0KEXCK 3+2048, 
4 -NEXTJ 

170 CURS0R27,K:INPUTAS:IFA$=CR$CK3THENCU 
RS0R27,22:PRINT" " :GOSUB5010 :GO 

T01 90 

180 GOSUB5030 :A=A+1 :ER=ER+1 :CURS0R27,22 : 
PRINTLEFT$CCR$CK3,A3:GOTO160 
190 NEXTF 

200 GOSUB5050:C0L0R,,7,1:PRINT"@":CURS0R 
17,5 :PRINT"BENE22" :PRINTTABC103"fflHAI SUP 
ERATO LA PROUA"iPRINTTABC103"0ERRORI CON 
NESSI ; ";ER:GOSUB5100:GOTO100 
210 PR I NT " lèi " :CURS0R8,7 :PR I NT "CAPOLUOGHI 
DI PROUINCIA" :ER=0:GOSUB5020:GOSUB5060:R 
ESTORE:FORF=1TO20:READXCF3,YCF3,CR$CF3 =N 
EXT :C=0:D=4 

220 F0RK=1TO20:GOSUB5200:GOSUB5050 
230 F0RJ=1T010:E=D:D=C:C=E:ONKGOSUB5300, 
5400,5500,5600,5700,5800,5900,6000,6100, 
6200,6300,6400,6500,6600,6700,6800,6900, 
7000,7100,7200-GOSUB5000-NEXTJ:GOSUB5060 
240 PRINT"I3":ONKGOSUB5310,5410,5510,5610 
,5710,5810,5910,6010,6110,6210,6310,6410 

,6510,6610,6710,6810,6910,7010,7110,7210 
'COLOR,,7,1 :CURSOR0,0:PRINTI0, 6 ]"REGIONE 
: Ll=0 

250 CURS0R9,0 : INPUTAS: IFA$=B$THENCURS0R2 
2,22 SPRINT" ":GOSUB5010: 

GOTO270 

260 GOSUB5030 :CURS0R22, 22 :uJ=W+l :ER=ER+1 : 

PRINTLEFT$CB$,W3 =GOTO250 

270 CURS0R22,5 SPRINT[0,2 3"PROUINCE" :0NKG 

OSUB5380,5480,5580,5680,5780,5880,5980,6 

080,6180,6280,6380,6480,6580,6680,6780,6 

880,6980,7080,7180,7280 
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280 F0RH=1T0J:READL,M,N$:U=0 

280 F0RG=1 TO10 ."GOSUB5000 :POKEL+2048,68 =G 

DSUB5000 :POKEL, (1 :POKEL + 2048,4 ^NEXTG 

300 CURS0R22, 6 +H : INPUTAS : I FA$=N$THENCURS 

0R22, 22 SPRINT" , ':GOSUB50 

i0 - GOTO320 

310 CURS0R22,22 :GOSUB5030 :i»J=UI+ 1 :ER=ER+1 : 
PRINTLEFT$CN$,W3:GOTO290 
320 NEXTH 

330 GOSUB5050:NEXTK:GOTO200 
■5000 TEMPO7:MUSIC''+C0" :RETURN 
5010 TEMP07:MUSIC ,! -*-C1+D1+E1+F1+G1+A1+B1 " 
: RETURN 

5020 TEMP07 :MUSIC"-*-C0+D0+E0+F0+G0 + A0+B0R 

3+B0+B0+G0+F0+E0+D0+C0":RETURN 

5030 TEMP04 : MUSIC"-F5":RETURN 

5050 FORS^ITOT 000 :NEXT:RETURN 

5060 FORS=1TO3000 :NEXT •’RETURN 

5100 CURSOR0,23:PRINT”Prem1 un Usto" 

5110 GETZ$:IFZ$=" !! THEN51 10 

5120 RETURN 

5200 COLOR,,4 ,1 :PRINT"@"'-CURS0R9, 1 :PRINT 
F5C8C8C8 "-PRINTTBBC53" E9F5C8C8C8C8C8C8C 
8C8D5 ":PRINTTABC2D" CIC 8 C 8 C 8 C 8 C 8 C 8 C 8 C 8 C 8 C 
8 C 8 C 8 C 8 " : PRINTTABC 23 " F5C8C8C8C8C.8C8C8C8C 
3C8C.9 " :PRINTTABC23" C8C8C8C8C8C8C6C8C8C8C 
8 ’’ :PRINTTABC2D " FEC 8 C 8 D 8 D 8 C 8 C 8 C 8 C 8 C 8 C 8 " 
5210 PRINTTABC33 " C8C9 FEC8C8C8C8E9 -1 :PR 
INTTABC93"C8C8C8C8C8E9":PRINTTABC93 " FEC8 
C8C8C8C8E9 " :PRINTTABC 103" FEC8C8C8C8C8E9 M 
: PRINTT BBC 113" FEC8C8C8C8C8E9 ":PRINTTABC1 
23" FEC8C8C8C8C8C8C8C9 ":PRINTTABC63"C2 
D8D8C8C8C8C8C8E9 " 

5220 PRINTTABC43" C2C8C8 FEC8C8C8 

C8C8C8E3 " -PRINTTABC43 " CI C8C8D5 
FEC8C8C8C9FEC8E3 " -'PRINTTABC 4 3 '’CJ_C8C8 
FEC8C8 C8 M 

5230 PRINTTABC 4 3" C1C8C8 FEC8 

E9"-PRINTTBBC 4 3" FEC9 C8C8 " 

:PRINTTFIBC203 ‘’ F5C8 " :PRINTTABC 1 3 3 "C2C2 
C2C2C8C9" ^PRINTTABC 1 33 " C8C8C8C8C8C8C9 ‘ > :P 
RINTTABC1 53" FEC8C8C8 " :PRINT.TFiBC 1 73 "FEC8” 
1 ^RETURN 

5240 FORR=0TO23:CURS0R27,R:PRINT[0,63" 

" ; :NEXT : RETURN 

10000 DATB 53371,248,AOSTA,53452,241,TOR 
I NO,53494,241,GENOUA,53415,242,MILANO,53 

379,241,TRENTO,53383,244,TRIESTE,53421,2 
^1,UENEZIA,53498,242,BOLOGNA,53578,242,F 
IRENZE,53582,248,ANCONA 

10010 DATA 53620,242,PERUGIA,53702,242,L 
'AQUILA,53700,248,ROMA,53745,244,CAMPOBA 
SSO,53783,248,NAPOLI,53830,242,BARI,5386 


8.242, POTENZA,54029,242,CATANZARO,54103, 
241,PALERMO,53934,244,CAGLIARI 

10020 DATA 53737,242,AOSTA,53663,241,NOU 
ARA,53741,248,UERCELLI,53815,248,TORINO, 

53903.241, ALESSANDRIA,53899,244,ASTI,540 

94.241, CUNEO,53812,248,IMPERIA,53655,248 
,SAUONA,53621,244,GENOUA,53707,248,LA SP 
EZIA 

10030 DATA 53537,241,SONDRIO,53610,244,U 
ARESE, 53612,244, COMO,53695,248,BERGAMO,5 

3739.242, BRESCIA,53732,248,MILANO,53852, 
241,PAUIA,53858,241,CREMONA,53863,242,MA 
NTOUA 

10040 DATA 53695,242,BOLZANO,53853,242, T 
RENTO, 53697,241,UDINE,53731,244,PORDENON 
E,53740,248,GORIZIA,53902,241,TRIESTE 
10050 DATA 53579,244,BELLUNO,53739,248,T 
REUISO, 53775,248, UIC-ENZA, 5381 2,244, UERON 
A,' 53817,241 , PADOUA, 53820, 241 , UENEZIA, 539 

37.241, ROUIGO,53569,241,PIACENZA,53653,2 

41, PARMA,53655,244,REGGIO EMILIA,53697,2 

42, MODENA,53740,241,BOLOGNA 

10060 DATA 53622,244,FERRARA,53746,244,R 
AUENNA,53825,241,FORLI',53450,244,MASSA 
CARRARA,53537,241 ,PI STO IA,53534,244,LUCC 
A,53612,242,PISA,53652,244,LIUORNO,53580 
,244,FIRENZE,53705,248,AREZZO,53781,241, 
SIENA,53978,242,GROSSETO 
10070 DATA 53654,241,PERUGIA,53897,242,T 
FRNI,53455,242,PESARO,53622,241,ANCONA,5 

3741.242, MACERATA,53943,241,ASCOLI PICEN 
0,53573,242,UITERBO,53580,242,RI ET 1,5381 

5.242, ROMA,53939,241,LATINA,53864,244,FR 
OSINONE 

10080 DATA 53534,248,TERAMO,53619,242,PE 
SCARA,53659,244,CHI ET 1,53651,248,L'AQUIL 
A,53692,242,ISERNIA,53698,244,CAMPOBASSO 
,53534,248,CASERTA,53538,242,BENEUENTO,5 

3618.244, AUELLINO,53654,244,NAPOLI,53739 
,241,SALERNO 

10090 DATA 53654,244,POTENZA,53662,241,M 
ATERA,53571,241 ,FOGGI A,53700,241,BAR 1,53 

822.244, TARANTO,53785,248,BRINDISI,53909 
,244,LECCE,53655,242,COSENZA,53778,241,C 
ATANZARO,54011,241,REGGIO CALABRIA,53584 
,248,MESSINA 

10100 DATA 53742,242,CATANIA,53823,242,S 
IRACUSA,53861,242,RAGUSA,53776,244,AGRIG 
FNTO,53651,241,TRAPANI,53654,241,PALERMO 
n53739,244,CALTANI SSETTA,53700,244,ENNA, 
53492,248,SASSARI,53618,244,NUORO,53773, 
241,ORISTANO,53975,248,CAGLIARI 
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ANAGRAMMI 

di Osvaldo Contenti 


Sapete a chi viene attribuita l'invenzione 
dell'anagramma? Nientemeno che al poeta 
greco TOLOMEO LICOFRONE; il fatto gli 
avrebbe favorito l'accesso al famoso gruppo 
dei Sette Savi in data approssimativa verso il 
280 a.C. 

Allo sprovveduto che vi parlerà 
dell'anagramma come di un ingenuo 
passatempo sapete ora cosa rispondere. 
L'anagramma, inoltre, attraverso la matematica 
ci svela il numero di combinazioni 
teoricamente possibili corrispondenti, queste, 
al fattoriale del numero delle lettere. Una 
parola di tre lettere, quindi, ha sei combinazioni 


1x2x3; una di dieci addirittura 3.268.000 
ELENCO VARIABILI 
A = contatore lettera d'aiuto 

PUN = punteggio 

A$ = frase da anagrammare 

B$ = anagramma risolto 

C$ = risposta giocatore 

D$ = numeri indicanti le lettere di ogni 

parola dell'anagramma 
VID = colore video 

NOTA = variabile CALL SOUND 

TTT = tempo di fermata 

K = KEY 

S = status 
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10 CALL CLEAR 
20 CALL SCREEN(11) 

30 FRINÌ "*■***ANAGRAMMI**** 
984 " 

40 POR TTT=1 TO 2000 
NEXT TTT 
CALL CLEAR 


DADO ?/. BRUNA 1 


50 

60 

70 

80 


FRI NT 
PRI NT 
E ALTRE" 
90 FRINT 


"()<)<) () (ISTRUZIONI) ()()()() 
::"ANAGRAMMA LE FRASI CHE 

"SUDDIVISE COME INDICATO 


100 FRINT : : :"SE VUOI CHE IL COMPUTER 
PAROLA AIUTO E PREMI ENTER:" 

110 FRINT "CIO' TI COSTERÀ' 20 PUNTI" 

120 FRINT : : :"****************************PREMI 
ISTRUZIONI" 

130 CALL KEY <0 , K, S) 

140 IF S=0 THEN 130 
150 CALL CLEAR 

160 FRINT :"SE DESISTI DAL RISOLVERE 
SSO E PREMI ENTER:" 

170 FRINT "NE AVRAI UN ALTRO 
RA' 100 PUNTI." 

180 PRINT : : :"AD INIZIO PARTITA HAI 
PIU' CHE PUOI" 


APPAIONO SULLO SCHERMO, FORMANE DELL 

DAI NUMERI,QUINDI DIGITALE E PREMI ENTER. 
TI FORNISCA UNA LETTERA, DIGITA LA 


UN TASTO QUALSIASI 


UN ANAGRAMMA,DIGITA 


DA INDOVINARE: 


PER ALTRE 


LA PAROLA PA 


CIO' TI COSTE 


A DISPOSIZIONE 10000 PUNTI ! CONSERVANE 


190 

200 

E. . 


PRINT "E STABILISCI IL TUO RECORD !" 

PRINT : : :"****************************PREMI 


UN TASTO QUALSIASI 


PER GIOCAR 


210 

CALL 

KEY(0,K,S) 

220 

IF S; 

=0 THEN 210 

230 

CALL 

CLEAR 

240 

CALL 

CHAR(128,"F") 

250 

CALL 

COLOR(13,10,10) 

260 

CALL 

SCREEN(2) 

270 

CALL 

COLOR (1,11,1) 

280 

CALL 

COLOR (2,11,1) 

290 

CALL 

COLOR(3,11,1) 

300 

CALL 

COLOR(4,11,1) 

310 

CALL 

COLOR(5,11,1) 

320 

CALL 

COLOR(6,11,1) 

330 

CALL 

COLOR(7,11,1) 

340 

CALL 

COLOR(8,11,1) 

350 

CALL 

COLOR(9,11,1) 

360 

A=0 


370 

PUN= 

10000 

380 

DATA 

"IL FARMACISTA" 

P !EJ 

’ !DBTB","8,2,4" 

390 

DATA 

"L'AL DI LA' MI 


"DJ 1 GBJ!TUBS!NBM","2,3,4,3","MAESTRO DI CANTO","UPSNFOU 
MISTERIOSO","BTTJMMP 1 EFJ 1 NPSUBMJ", "7,3,7" ,"BIBLIOTECARIO", 
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400 DATA "MILLE BACI NEL FACCINO","ORO !GBDDJB!M(JNCFDJMMF","3,6,1,9" 

410 DATA "IL PEGGIOR DEI MALI","Fa !EJ!QJHMJBS!NPHMJF","1,2,7,6" 

420 DATA "ED IL PIGLIAR MARITO","UJ!QBS!M(JEFB!NJHMJPS","2,3,1,4,7" 

430 DATA "BENEDETTO CAIROLI","FSPF!DJOUF' !EJ!CFMUBa","4,5,2,5" 

440 DATA "LA NOSTRA RADIOTELEVISIONE","WJFUB!MF!TBUJ5F!0P0!PTB!EJSMP","5,2,6,3,3 
5 " 

t u 

450 DATA "AMORE DI DONNA","EFOBSP 1 EJ!NFOP","6,2,4" 

460 DATA "IL VINO GENEROSO DELLE REGIONI D'ITALIA","BMMJFUB!M(JOWFSOP!HFMJEP!SFO 
EF!HJPJPTJ","7,1,7,6,5,7" 

470 DATA "MILLENOVECENTQSESSANTADUE","FTU!FE!PWFTU!OFMM(BOTJB!DPNVQF","3,2,5,4,5 

, 6 " 

480 DATA "GUGLIELMO OBERDAN","SFHOP!EFMM(BNCJHVP","5,4,7" 

490 DATA "SIGARETTA MACEDONIA","TUSBUFHJB!EFNPOJBDB","9,9","MOGLIE CICALONA","NF 
HMJP 1 MBDPOJDB","6,8" 

500 DATA "VESTITO SOBRIO","WJTFUUP!CSJPTP", "7 ,6" 

510 DATA "STEFANO PROTOMARTIRE","TBOUP!NPSUP!GSB!QJFUSF","5,5,3,6" 

520 DATA "QUID EST VERITAS","FTU!WJS!RVJ!BEFTU","3,3,3,5" 

530 DATA "FRERE JACQUES CLEMENT","D(FTU!M(FOGFS!RVJ 1 N(B!DSFF","1,3,1,5,3,1,1,4" 
540 DATA "GENDARMERIA","SFHJOB!NBESF","6,5" 

550 DATA "TORPEDINIERE","UPSSJìF!QFEJOF","5,1,6" 

560 DATA "ULCERAZIONE","SFOÀP!F!MVDJB","5,1,5" 

570 DATA "CALENDARIO","M(BSDB! EJ!OPFa","1,4,2,3" 

580 DATA "PROMEMORIA","QSJNP!BNPSF","5,5","MARCIAPIEDE","QBDF!EFJ!NBSJ","4,3,4" 
590 DATA "LA DOLCE NOTTE PIA","JM!DBOUP!EFM!QPFUB","2,5,3,5","LE CORDE VOCALI"," 
DFSWFMMP! EJ!PDB","8,2,3" 

600 DATA "DOLCI PAROLE","DBQFMMJ! E<PSP","7,1,3","L'ARTE DELLA CERAMICA","MF!UFSN 
F!EJ!DBSBDBMMB","2,5,2,9" 

610 DATA "NOTA SATIRICA","TUPSJB!BOUJDB","6,6","VIOLA DEL PENSIERO","QFMMF!EJ!WF 
SP!BTJOP","5,2,4,5" 

620 DATA "FACCIA DI MORO","GPSNB!EJ!DBDJP","5,2,5","LA BIASCICA PATERNOSTRI","J! 
DBMBCSPOJ 1 TDBQFTUSBUJ","1,9,11" 

630 DATA "VOLTO DI ASCETA","UFTUB!EJ!DBWPMP","5,2,6","UN SORSO DI BIRRA","TPSSJT 
P!EJ!CSVOB","7,2,5" 

640 DATA "ARABA FENICE","GJBCF!BSDBOF","5,6","DUELLI AMENI","MVOB!EJ!NJFMF","4,2 


u 


650 DATA END,END,END 
660 READ A*,B$,D* 

670 IF A*="END" THEN 1440 
680 PRINT "ANAGRAMMA :"::A*:: 

690 CALL HCHAR(18,1,128,32) 

700 PRINT r"SOLUZIONE= ";D*: 

710 PRINT "" 

720 INPUT "FRASE? ":C* 

730 PRINT " " 

740 CALL HCHAR(24,1,128,32) 

750 PRINT 

760 IF C*="" THEN 860 
770 IF C*="AIUTO" THEN 1200 
780 IF C$="PASSO" THEN 1300 
790 FOR G=1 TO LEN(B$) 

800 Z=ASC(SEG$ <B$,G,1)) 

810 X=ASC(SEG*(C$,G,1>) 

820 T=Z— 1 

830 IF T< >X THEN 860 
840 NEXT G 
850 GOTO 1360 
860 PRINT "" 

870 PRINT "CHE DIAVOLO HAI SCRITTO 
880 GOTO 680 
890 A=A+1 

900 IF A>INT CLEN(BT)/2)THEN 1050 
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910 IF ASC ( SEG$ ( B-f , A , 1 ) ) < >33 THEN 930 
920 A=A+1 
930 FRINÌ " " 

940 FRINT "TI AIUTO CON :": : 

950 FOR A1=1 TO A 

960 W=ASC(SEG$<B$,AI,1)) 

970 CALE HCHAR(24,2+AI,W-l) 

980 NEXT AI 
990 FRINT :s s s " " 

1000 PUN=PUN—20 
1010 GOTO 680 

1020 PRINT :"COMPLIMENTI HAI PUNTI: "jPUNrssss 
1030 A=0 

1040 GOTO 660 DARTI PIU' 

1050 PRINT :"DADO MI HA DETTO DI NON 
LETTERE !" 

1060 A=INT(LEN(B$)/2)+1 
1070 GOTO 930 

1080 PUN=PUN—100 ERA LA SOLU 

1090 PRINT :" 

ZI ONE" 

1100 PRINT : "SEI A QUOTA: " ; F'UN 
1110 FOR PAS=1 TO LEN(B$) 

1120 OR=ASC(SEG$(B*,PAS,1)> 

1130 IF PAS >27 THEN 1160 
1140 CALL HCHAR ( 18,2+PAS , OR— 1 ) 

1150 GOTO 1170 

1160 CALL HCHAR(19,PAS—25,OR-1) 

1170 NEXT PAS 
1180 A=0 
1190 GOTO 660 

1200 CALL SOUND(150,1047,0,262,0) 

1210 FOR XXX=1 TO 30 
1220 NEXT XXX 

1230 CALL SOUND(150,1047,5,262,5) 

1240 CALL SOUND(150,988,5,247,5) 

1250 CALL SOUND(150,880,5,220,5) 

1260 CALL SOUND(300,988,5,247,5) 

1270 CALL SOUND(150,1047,5,262,5) 

1280 CALL SOUND(200,1175,5,294,5) 

1290 GOTO 890 
1300 NOTA=440 
1310 FOR XX=1 TO 10 

1320 CALL SOUND(-100,NOTA,5,NQTA-20,5,N0TA-30,5,-8,2) 

1330 NOTA=NOTA—30 
1340 NEXT XX 
1350 GOTO 1080 
1360 FOR VID=2 TO 16 
1370 CALL SCREEN(VID) 

1380 CALL SOUND(200,(VID*100)+110,0,(VID*100)+55,0,(VID*100)+30,0) 

1390 FOR TTT=1 TO 10 
1400 NEXT TTT 
1410 NEXT VID 
1420 CALL SCREEN(2) 

1430 GOTO 1020 
1440 FOR TTT=1 TO 2000 
1450 NEXT TTT 
1460 CALL CLEAR 


1470 PRINT " FINE GIOCO 

1480 PRINT PUNTI IN TOTALE :";PUN 


1490 GOTO 1490 


21 






























ATTACCO AEREO 

di Enrico Fabrizi 


Aerei in picchiata e bombardieri d'alta quota 
attaccano la vostra città! Avete a disposizione 
5 batterie contraeree per abbatterne il maggior 
numero possibile; ma attenti! Il tempo vola. 
Potete scegliere inizialmente tra 9 livelli di 
difficoltà che regolano il tempo di passaggio 
dell'aereo ed il numero di bombe sganciate; 
dopo aver abbattuto 1 5 aerei il livello si porta, 
comunque, automaticamente sul valore 
massimo. 


primo, in un altro programma (vedi 
R.400-470). 

1 20-140 - Viene visualizzato il campo di 
battaglia; la sagoma dei grattacieli sullo sfondo 
è ottenuta mediante la stampa, in opportune 
posizioni, di spazi vuoti di colore diverso da 
quello di sfondo (R.1 20-1 30). Il numero di aerei 
relativo alla variabile M$, serve ad escludere 
dalla lettura la scala musicale di riga 1040, i cui 
«DATA» devono essere letti, a partire dal 



Attenzione! Come già segnalato in precedenti 
numeri della rivista, in alcune stringhe sono 
inseriti caratteri grafici (accessibili da tastiere 
mediante il tasto «GRAPH») che la plotter ha 
stampato in forma di codici ASCII esadecimali: 
nel listato tali codici sono sottolineati. A pag. 

156 del manuale è riportata la tabella completa 
dei caratteri grafici con i rispettivi codici; ad 
esempio, il codice «C5» in riga 100 è relativo al 
carattere grafico che si ottiene premendo 
(dopo il tasto «GRAPH») la lettera «T». 

LISTATO DEL PROGRAMMA 

10-1 10 - Presentazione del gioco con titoli e 
istruzioni. Le stringhe musicali che saranno 
utilizzate nella routine di esplosione dell'aereo 
vengono assegnate alla variabile MI $(K) 
(R.70); il loop immediatamente precedente. 


abbattuti (H) è azzerato, mentre il numero di 
batterie disponibili (W) è fissato a 5; la variabile 
TM, che controllerà lo scorrere del tempo, è 
inizializzata a 5000. 

1 50-170 - La contraerea è visualizzata in un 
quadratino centrale determinato dal valore 
della variabile A (R.150). Viene estratto un 
numero casuale da 1 a 4 che, tramite le 
subroutines 3000-3030, stabilirà la posizione 
di partenza dell'aereo (E), visualizzato con le 
«POKE» di riga 1 70. 

180-290 - Inizia lo svolgimento del gioco: 
poiché l'aereo deve percorrere 40 caselle da un 
estremo all'altro dello schermo, il loop 
controllato dalla variabile K in riga 180 
sudduvude l'intera partita in cicli di circa 40 
ripetizioni dello stesso schema fondamentale. 
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Le subroutines 3040-3090 determinano lo 
spostamento dell'aereo di una casella; le fasi 
successive del gioco sono inserite in un loop 
interno controllato dalle variabili J e Z: il valore 
di quest'ultima è assegnato in sede di scelta 
del livello di difficoltà (R.110). Le operazioni 
racchiuse nel secondo loop possono svolgersi 
da 1 alO volte per ogni spostamento 
dell'aereo di una casella: ciò si traduce, in 
pratica, in una apparente variazione di velocità 
dell'aereo stesso (R.180). 

La variabile TM viene decrementata e 
stampata (R.1 80); la variabile Y controlla lo 
sgancio delle bombe: se ha valore 0, viene 
assegnata ad L (che controlla la visualizzazione 
delle bombe) una posizione immediatamente 
sottostante a quella dell’aereo; la variabile Y 
assume quindi valore 1 (R.1 90) ed inibisce il 
lancio di altre bombe fino a che mantiene tale 
valore, cioè fino a quando la bomba stessa non 
tocca il suolo (R.200). Viene controllato se la 
posizione (L) dela bomba coincide con quella 
della batteria (A): in caso affermativo 
l'esecuzione del programma passa alla riga 
300 per l'esplosione di quest'ultima (R.210) 
oppure prosegue con l'eventuale spostamento 
della contraerea (comandato dai tasti del 
cursore) (R.220-260). Il fuoco della contrarerea 
è controllato dalle variabili X e M in modo 
analogo a quanto descritto per le bombe (R. 
270-280). 

300-380 - Routine di esplosione della batteria 
contraerea: l'effetto grafico e sonoro si ottiene 

10 REfl* ATTACCOAEREO* 

20 REM*BY E.FABRI2I-1984* 

30 REMXSHARP 112-700* 

40 COLOR, ,0,4 :FRI NT"S":F0RK=2T037 :COLORK 
,2,, 6 :NEXT :F0RK=3T022:C0L0R37,K,, 6 :NEXT: 
f r 0RK=36T02STEP-1 :C0L0RK, 22, , 6 :NEXT :F0RK = 

21 T03STEP-1 ■'C0L0R2, K, , 6 :NEXT 

50 TI $="ATTACCO AEREO ' 1 :T2$="d ! E.FABRI 
21-1984" : CURSORI 3,7:F0RK=1T0LENCT1$3:PRI 
NTnID$C T1 $5 K,135iPQKE55588+K,132:GOSUB10 
00 : GOSUB1000 :NEXT : CURSORI 1,13 :F0RK=1TOLE 
NCT2$3 1PRINTL7,0]niD$CT2$,K, 13 5:NEXT 
60 TE11P05 :f1USIC"E1 RI E0R0E0R0E0R0E0R0E1 DI 
C1R3C3D3E3F5R3F1R1F0R0F0R0G1F1 E1R1E0R0E1 
p 1 E1 D1 R1D0R0D 1 E 1 D 1 C3" 

70 CURS0R4,20 SPRINT"Premi un tasto":F0RK 
= 1 T01 8 :READf1$ : NEXT :DIMM1 SCI 53 :F0RK=1 T01 5 
•READM1SCK3:NEXT 
80 GET2$ : IF2$=""THEN80 


accendendo e spegnendo alcuni caratteri 
grafici e modificandone il modo casuale il 
colore (P) (R.310). Il numero di batterie 
disponibili (W) viene decrementato (R.320) e, 
qualora risulti zero, la partita viene interrotta 
(R.330-370), altrimenti prosegue con la riga 
380. 

390 - Le istruzioni di questa riga determinano 
la fine della partita quando la variabile TM 
assume valore zero (R.1 80). 

400-470 - Routine di caduta ed esplosione 
dell'aereo: la posizione dell'aereo sullo 
schermo (E) è via via spostata di un quadretto 
in basso, mentre vien prodotto un suono a 
frequenza decrescente (R.440) costituito dalla 
sequenza delle coppie di note musicali di riga 
1040 lette in riga 1030. Quando l'aereo 
raggiunge un punto in prossimità del suolo o 
del tetto dei grattacieli (R.420-430) 
l'esecuzione del programma salta alla riga 450 
per l'esplosione dell'aereo, simulata in modo 
analogo a quella della contraerea. 

Viene incrementato il numero di aerei distrutti 
(H) ed aumentata la difficoltà del gioco (Z=9) se 
ne sono stati abbattuti più di 15 (R.460). 
1000-2000 - Subroutine musicale 
(R.1000-1050) e di rallentamento 
dell'esecuzione del programma (R.2000). 
3000-3090 - Subroutines che determinano la 
posizione di comparsa dell'aereo ed il modo di 
spostamento (picchiata o orizzontale) 
(R.3000-3030) nonché il cammino progressivo 
sullo schermo (R.3040-3090). 

90 COLOR,,7,0:PRINT"0" : CURSORI 5,2 :PRINT" 

ISTRU2I0NI " :PRINTTABC1 53 "-" =CUR 

SOR0,8 ^PRINT'TIou i mento contraerea-' ["<-] 
[-»] " :P0KE53596,63 :P0KE55644,240 
100 CURS0R26, 12 :PRINT"C4C4C4C4C4C4":PRIN 
T"Per sparare : C7SPA2I0C5" : P 

RINTTABC263" C3C3C3C3C3C3 ":CURSOR0,22:PRI 
NT"Sce 9 I i il livello di difficolta' C1-9 
3" : GOSUB1010 
110 GET2:IF2=0THEN1 10 

120 COLOR,,7,5 :PRI NT"0" : COLOR, , , 1 :CURS0R 
13,13 :PRINT" ";TABC213" " :PRINTTABC123" 

"5TABC193" " ;TABC213" ' :PRINTTABC123" 

" ;TABC153" “;TABC193" ";TABC213" ":PRI 

NTTABC93" ";TABC123" " ;TABC153" 5 T ABC 
183" "JTABC213" ”;TABC253" " 

130 PRINTTABC93" ";TABC253 

" ":PRINTTABC93" M :C0NS 
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OLE 19,6 : COLOR, , ,3 : PRI NT"@": CONSOLE :CURSO 
R0,23:PRINTC7,03"AEREI ABBATTUTI : 
BATTERIE: 5 " ; : H=0 : Ul=5 : E=53248 : TM=5 

000 

140 CURSOR14,24 :PRINT[7,03"TEMPO : 


150 A=54108:B=63:C=243:POKEA,B:POKEA+204 
8,C 

160 POKEE+2048,85:D=INTCRNDC13*4+1} 

170 ONDGOSUB3000,3010,3020,3030:POKEE,F: 
PQKEE+2048,133 _ 

180 FORK=1T039:ONDGOSUB3040,3060,3080,30 
90:FORJ = 1TOI0-7 :TM=TM-1 :CURSOR20,24 :PRIN 
T[7,0]USING"####";Tn5 : IFTM=0THEN390 
190 IFY=0THENL=E+40:Y=1 

200 IFY=1THENPOKEL,0 :L=L+40:POKEL,238 : IF 

L> 54087THENY=0:POKEL,0 

210 IFL=ATHEN300 

220 6ET2$:IF2$=""THEN270 

230 IFCE$=CHR$C323 3*CX=0 3THENM=A-40 :POKE 

M,53:X=1:GOTO270 

240 IF2$="0"THENPOKEA+2048,51:A=A-1 =IFA< 
54089THENA=54089 

250 IF2$="B"THENPOKEA+2048,51 :A=A+1 :IFA> 

54126THENA=54126 

260 POKEA,B:POKEA+2048, C 

270 IFX=1 THENPOKEn, 0 :M=M~40 : IFn<53249THE 
NX=0:GOTO290 

280 IFX=1 THENPOKEN, 53 :IFM=ETHEN400 
290 NEXTJ,K:GOTQ160_ 

300 REM*ESPLOSIONE BATTERIA* 

310 F0RJ=241T0255:P=INTCRNDC13*1283:POKE 
A,J:POKEA+2048,P:POKEA-1,108 :POKEA+2047, 

166 : POKEA-40, 107 :POKEA+2008, 166:P0KEA+Ì, 
106 :POKEA+2049,166:GOSUB1020:POKEA+2047, 

179 : POKEA+2008,179 :POKEA+2049, 179 =NEXTJ 
320 POKEA+2048, 51 :UI=UI-1 :1FU>0THEN380 
330 CURSOR0,23:G0SUB1010:PRINTC7,0]"CONT 

PAEREA INTERAMENTE DISTRUTTA "J 

340 GOSUB2000:PRINTC7,0]"fflHAI ABBATTUTO" 
IH ;" AEREI "5 :GOSUB2000 :C 

URSOR0,23 : PR I NT [ 7, 0 ] " Se yuo i giocare arie 
ora premi <Y> "; 

350 GET2$:IF2$=""THEN350 

360 IF2$="Y"THEN90 

370 PRINT"0" :CURSOR0,22 : END 

380 CURS0R32,23:PRINTC7,03W; :GOTO150 

390 CURSOR0,23:GOSUB1010:PRINTC7,0] " 

TEMPO ESAURITO "5 :G 

OT 0340_ 

400 REM*ESPLOSIONE AEREO* 


410 RESTORE 

420 E=E+40:IFCE=539693+CE=539703+CE=5397 
13 + C E=53972 3 + C E=539733 + C E=53974 3 + C E=5397 
5 3+ C E=53856 3 + C E=538573 + C E=53858 3 + CE=5377 
9 3 + C E=53740 3+CE=537413+CE=537423+CE=5382 
33+CE=538243+CE=538253THEN450 
430 IFCE=537863+CE=537873+CE=537483+CE=5 
3749 3 + CE=537503 + C E-538313+CE=538723+CE=5 
38733+CE=538743+CE=539153+CE=539963+CE=5 
39973 + CE=539983 + C E=53999 3 + CE--540003 + CE=5 
40013 + C E=540023 + C E=540033 + C E=54004 3 + CE=5 
40053+CE=540063THEN450 

440 POKEE-40,0:POKEE+2008,117:P0KEE,91:P 
OKEE + 2048, 133 :&0SUB1030:GOTO420 
450 F0RJ=241T0255 :P=INTCRNDC13*1283 :POKE 
E,J :POKEE+2048,P:P0KEE-1 , i08 :POKEE+2047, 

166 : POKEE-40,107 :POKEE+2008, 166:P0KEE+1, 
106 :POKEE+2049, 166-'TEMP07 : MUSI CM1 $CJ-240 
3:POKEE+2047,213:POKEE+2008,213:POKEE+20 
49,213 :NEXTJ 

460 POKEE + 2048,85 :H=H+1 :CURSOR16,23 : PRIN 

T[7,03Hj :X=0: IFH>15THEN?~9 

470 GOT0160 _ 

1000 TEMP07 :MUSIC"+C0" :RETURN 

1010 TEMP07 : MUSIC"+C1+D1+E1+F1+G1+A1+B1” 

'RETURN 

1020 TEMP07 :MUSIC"-F0": RETURN 
1030 READM$ :TEMP07 :MUSICM$ : RETURN 
1040 DATA +B1+#A1,+A1+4G1,+G1+#F1,+F1+E1 
, +#D1+D1,+#C1+C1,B1#A1 ,Al#G1,Gl#F1,FIE1 , 
#D1 DI,#C1C1,—B1 — #A 1,-A3 —#G1 ,-Gl -#F1,-FI - 
E1,-#D1-DI,-#C1 --C1 

1050 DATA +B0,+A0, + G0,+F0,+E0,+D0,+C0,B0 
,A0,&0,F0,E0,D0,C0,-B0 

2000 F0RU=1TO3000 -NEXT:RETURN _ 

3000 E=53248:F=92: RETURN 
3010 E=53287:F=90 :RETURN 

3020 E = 53288 + 40*I NTCRND C1 3*103 :F = 92 :RETU 
RN 

3030 E=53327+40*INTCRNDC13*103 :F = 90 :RETU 
RN 

3040 IFK <1 1THENPOKEE,0 :POKEE+2048,117 : E = 
E+41 :POKEE,F : POKEE+2048,133 : RETURN 
3050 GOTO3080 

3060 IFK <1 1THENPOKEE,0 :POKEE + 2048, 117:E= 
E+39:POKEE,F:POKEE+2048, 133 : RETURN 
3070 GOTO3090 

3080 POKEE,0:PQKEE + 2048,1 17 :E=E+1 :POKEE, 
F:POKEE + 2048, 133 : RETURN 

3090 POKEE,0:POKEE + 2048, 1 17 :E = E-1 :POKEE, 
F :POKEE + 2048, 133:RETURN 
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TEST A SCELTA MULTIPLA 


Un programma didattico che sarà senz'altro 
utile ai nostri piccoli lettori nel ripassare le 
materie di studio. 

Dato il RUN viene visualizzato un MENÙ con 3 
opzioni: 

1) VECCHIO ESERCIZIO 

2) NUOVO ESERCIZIO 

3) FINE 

Opzione 1 : presuppone che sia stato già creato 
un programma. In caso contrario, l'opzione da 
digitare è dunque la 2) = creazione programmi. 
Opzione 2: appare la scritta 
NOME FILE? 

viene inserito il nome dell'argomento che si 
vuole trattare, es. CAPITALI; appare poi la 
scritta 

NUMERO DOMANDE? 

(possono essere al max. 1 5), quindi si procede 
alla loro formulazione, es.: 

? CAPITALE FRANCIA 
? CAPITALE SPAGNA 

? 

Formulate le domande, il computer chiederà 
automaticamente le risposte. Trattandosi di un 
Test ha scelta multipla, per ogni domanda 

READY. 

1 REM ****************** 

2 REM * * 

3- REM * TEST * 

4 REM * * 

5 REM * MARINO CORETTI * 

6 REM * * 

? REM * LIST - SCUOLA * 

8 REM * * 

9 REM ****************** 

10 PRINT"iJ" 

11 PR I NTTAB (9 ) " J8HHTEST " 

12 PRINT" SfflUUfl A SCELTA MULTIPLA" 

20 DIMR$<45):DIMD^(15):DIMGS<15) 

80 FORJ =1TO15 :PRINT:NEttT 

90 P R I NT " (HIP REMI UN TASTO" 

100 GETQ$:IFQ^=""THEN100 

150 PRINT"a" SPRINT"1 VECCHIO ESERCÌZ 

160 PR I NT” BBB12 NUOVO ESERCIZIO" 

170 PRINT"H8P FINE" 

180 PRINT:PRINT:PRINT 

185 INPUT"SCELTA<1 2 3 ) "; SS 


devono essere inserite 3 risposte, dele quali 
naturalmente una sola esatta. Es.: 

? 1 VIENNA 
? 2 PARIGI 
? 3 MARSIGLIA 
? 1 MADRID 
? 2 LISBONA 
? 3 LONDRA 

Eseguito ciò verrà visualizzata la scritta 
RISPOSTE ESATTE 

Si devono inserire, nell'ordine, i numeri 
corrispondenti alle risposte esatte. Es.: 

? 2 
? 1 

Terminato l'inserimento apparirà la scritta 
PRESS RECORD & PLAY 
Il File «CAPITALI» verrà dunque salvato su 
nastro e sarà pronto per essere utilizzato. 

Si consiglia di registrare gli argomenti (FILES) 
su un nastro a parte, e di usare il counter del 
registratore per ritrovare e caricare più 
speditamente l'argomento desiderato. 

Avendo creato un nastro argomenti è possibile 
passare all'utilizzo scegliendo, dopo aver 
caricati il programma principale, l'opzione 1 dal 
MENÙ: 

VECCHIO ESERCIZIO 
Digitando 1 apparirà la scritta 
NOME FILE? 

inserire il nome del'argomento desiderato, 
posizionare il nastro «Argomenti» e seguire le 
indicazioni che appaiono sul video. 



IO” 
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190 IFSS<>1ANDSS< >2ANDSS< >3THEN1S5 
£10 ONSS6OSUB5000,7000,9000 
220 PR I NT " LJ" 

230 FRI NT "PREMI 1,2 0 3“ : PR I NT 11 HBPER RISPONDERE" 

240 PR I NT " fflflHHSHBMSPREM I UN TASTO " : PR I NT" S=ER INIZIARE" 

250 GETQS:IFQS=""THEN250 

300 PRINT":Z=1:E=0:G=0:P=0 

3 10 FORJ=1T0ND:PRINTCHRSC18)0$ < J ) :PRINT 

320 F0RK=ZT0K+2:PRINTRS<K):NEXTK 

330 2 =Z +3 :PRINT 

340 AS="": INPUT"RISPOSTA"; A* 

345 IFAS =""THEN340 

350 IFAS< > " 1 "ANDAS< >"2"ANDAS< > " 3 " THEN340 

360 IFAS=GS< J )THENPR INTTAB < 15)CHRS< 145) " jjESATTO " : G =G + 1 : GOTO380 
370 PRINTTAB < 15)CHRS<145)"ERRORE":E=E+1:GOTO340 
380 PRINT:PRINT"PREMI UN TASTO" 

390 GETQS:IFQS =""THEN390 
400 PRINT"J":NEXTJ 

500 PRINT"ERRORI "; E :PRINT:PRINT 
503 P=G-E/2 

505 PRINT"PUNTEGGIO";P:PRINT:PRINT 
510 INPUT"RIPETERE <S/N)";ZZS 
520 IFZZS="S"THEN300 
530 GOTO 150 
600 END 

5000 PRINT": INPUT"NOME FILE";NS:PRINT:PRINT 

5100 PRINT"5F0SIZIONA IL NASTRO":PRINT"SI POI PREMI UN TASTO" 

5150 GETQS:IFQS=""THEN5150 
5200 0PEN1,1,0,NS*INPUT#1,ND 
5300 FORJ = 1TOND: INPUT#1,DS<J):NEXTJ 
5400 F0RK=1T0ND*3:INPUT#1,RSCK):NEXTK 
5500 FOR-J = 1 TOND : INPUT# 1 ,GSCJ) : NEXTJ 
5600 CL0SE1 

5700 PR I NT"H8ST0P NASTRO ": PR INT ■ SHPREMI UN TASTO " : PR INT"BPER CONTINUARE " 
5800 GETQS:IFQS=""THEN5800 
5900 RETURN 

7000 PR INT" ,J" : INPUT "NOME FILE" ; NS :PRINT 

7050 ND=0: INPUT"NUMERO DOMANDE";ND: IFND=0THEN7050 

7060 MS=CHRS<13):PRINT 

7 100 PRINT"DOMANDE : ":FORJ=1TOND: INPUTDS<J):NEXT 

7200 PRINT"RISPOSTE : ":FORK=1TOND*3 : INPUTRS<K):NEXT 

7300 PRINT"RISPOSTE ESATTE FORJ=1TOND: INPUTGS<J):NEXT 

7400 0PEN1,1,1,NS:PRINT#1,ND;MS 

7500 FORJ =1TOND:PRINT#1,D$(J);MS:NEXT 

7600 FORK =1TOND*3 ;PRINT#1,RS<K); MS:NEXT 

7700 FORJ =1TOND:PRINT#1 ,G$(J); MS:NEXT 

7800 CL0SE1 

7900 PR I NT " giaSTOP NASTRO PR I NT " HPREMI UN TASTO " : PR I NT " gPER CONTINUARE" 

8000 GETQS:IFQS=""THEN8000 

8100 RETURN 

9000 END 

READY. 
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LEVRIERI 


Tutti al CINODROMO per assistere alla corsa scommessa!! 

dei levrieri! Un'occhiata al totalizzatore... e una Avete avuto buon fiuto? 





100 ^REM*************************** 


200 REM* 
300 REM* 
400 REM* 
500 REM* 
600 REM* 


L E U R I E R I 


ORIC - 1 48K 


700 REM*************************** 
800 REM 
900 REM 

910 REM INTRODUZIONE 
920 REM 

1000 CLS:POPER0:INK1:PRINTCHR$C 1 71 
1010 FORX=47064T047080 
1020 READY 


1030 POKEX, Y 
1040 NEXTX 

1050 00100,0,0,16,16,31,31,24,0,0,8,15,1 
5,56,56,24 

1100 PRINTCHR$(41 ;CHR$C271;"NC0RS0 DEI L 
EURIERI ORICI 48K":PRINTCH 
R$ C 41 

1105 REODU 

1110 IFU=-1THENG0T01199 
1115 MUSICI,3,U,9 
1120 GOT01105 

1125 DOTAI,2,3,4,5,6,7,8,9,8,7,6,5,4,3,2 
, 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 8 , 7 , 6 , 5 , 

4,3,2,1 


27 










































m 


1130 DATA2,3,4)5,6,7,8,9,8,7,6,5,4,3,2,1 
,2,3,4,5,6,7,8,9,8,7,6,5,4, 

3,2,1,-1 

1193 PLAY0,0,0,0 

1200 FRI NT :PRINT :PRINTCHR$X 41;CHR$C273 ;" 

JISTRUZIONI? CS/N1":PRINTCH 

R$C43 

1300 INPUTJ$ 

1400 IFLEFT$ C J $,13="S"THENGOSUB15900 
1440 REM 

1450 REM SCOnilESSE 
1460 REfl 

1500 CLS :PAPER0:INK6 

1600 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 
:PRINT :PRINT:PRINT 

1700 PRINTCHR$C43 ;CHR$C273 "NATTENDERE T 

ABULATO":PRINTCHR$C43 

1800 LIAIT150 

1900 CLS :PAPER6:INK4 

2000 PRINT" TABULATO":PRINT" 


2200 PRINT 
2300 FORAA=1T06 

2400 LETACAA3=INTCRNDC13*050+13 

2500 PRINT" QUOTA:" ;AA;".";ACA 

A3 ;"/l" 

2600 PRINT 

2620 MUSICI,4,AA,8 

2640 WAIT100 

2700 MUSICI,4,AA+1,8 

2800 NEXTAA 

2900 PLAY0,0,0,0 

2940 REM 

2950 REM PUNTATA 
2960 REM 

3000 PRINT:PRINT:PRINT 
3100 INPUT"QUALE LEURIERO?"' ,‘E 
3200 IFE <1ORE>6THEN3100 
3400 PRINT:PRINT 

3500 INPUT"QUANTO SCOMMETTI? V;D 
3540 REM 

3550 REM SET UP SCHERMO 
3560 REM 
3600 CLS :PAPER0 
3650 LORES0 

3700 INK5 :PLOT0,0, " LEURIER 

I " 

4700 FORC=0TO38:PLOTC,2,18:NEXT 
4800 FORC=0TO38:PLOTC,22,19:NEXT 
4900 PL0T3,1, "P" :PL0T36,1,"ff" 

5000 F0RC=3T021:PL0T36,C,":":NEXT 

5005 K=4 

5010 FORX=lT06 


5020 PLOT 1, K, X 
5030 K=K+3 
5040 NEXTX 

5050 F0RX=4T019STEP3 
5100 PL0T3,X,"{!" 

5200 NEXTX 

5250 F0RC=3T021:PL0T2,C,":NEXT 
5300 PLOT10,12,"NASTRO DI PARTENZA" 

5400 AB=3 :AC=3:AD=3:AE=3:AF=3:AG=3 
5500 UAIT200 

5600 MUSICI,4,6,9 :UAIT100 
5605 MUSICI , 4,4,9 :UIAIT100 
5610 MUSICI,4,8,9 :UAIT25 
5620 MUSICI,4,6,9 :UAIT100 
5630 PLAY0,0,0,0 
5700 PLOT 10,12," PARTITI 2 
5800 F0RC=1T019:PRINT:NEXT 
5900 WAIT250 
6000 PLOT 10,12," 

6490 REM 

6495 REM ROUTINE CORSA 

6500 REM 

7000 F0R2=1T02 

7100 LETGC23 = INTCRNDC13X6+13 

7200 IFGC23-GC13THEN7100 

7300 ONGCZ3GOTO7400,8000,8600,9200,9800, 

10400 

7400 PLOTAB,4,32 
7500 LETAB=AB+1 
7600 PLOTAB,4,"{!" 

7700 IFAB=37THEN11000 
7800 U1AIT10 
7900 GOTO7100 
8000 PLOTAC,7,32 
8100 LETAC=AC+1 
8200 PLOTAC,7,"{!" 

8300 IFAC=37THEN11000 
8400 LIA I T10 
8500 GOTO7100 
8600 PLOTAD,10,32 
8700 LETAD=AD+1 
8800 PLOTAD,10,"{!" 

8900 IFAD=37THEN11000 
9000 WAIT10 
9100 GOTO7100 
9200 PLOTAE,13,32 
9300 LETAE=AE+1 
9400 PLOTAE,13,"{!" 

9500 IFAE=37THEN11000 
9600 UAIT10 
9700 G0T07100 
9800 PLOTAF,16,32 
9900 LETAF=AF +1 
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10000 PLOTAF,16,"{!" 

10100 IFAF=37THEN11000 
10150 UJAIT10 
10200 G0T07100 
10400 PLOTAG,19,32 
10500 LETAG=AG+1 
10600 'PLOTAG,19," < • " 

10200 IFAG=37THEN11000 
10250 UJAIT10 
10800 GOTO7100 
11000 NEXT2 
1 1040 REFI 

11050 REM FINE CORSA 

11060 REFI 

11100 WAIT300:CLS 

1 1200 PRINT : PRINT : PRINT : PRINT:PRINT :PRIN 
T :PRINT 

1 1300 PRINTCHR$C43 ;CHR$C273;"JATTENDERE 

RISULTATI" :PRINTCHR$C4 3 

11400 UIAIT500 :CLS :PAPER0 : INK1 

11500 T=INTCRNDC13X10+13 

11600 W=INTCRNDC13X60+13 

11550 PRINT 

11700 PRINTCHR$C43;CHR$C273;"JORIC LEUR1 
ERI" :PRINTCHR$C43 

11800 PRINT : PRINT :PRINT :PRINTT;" : " ; W ; "HA 
RIGNEY" 

11900 PRINT:PRINT 

12500 PRINT" 1F10 RIS. ";GC13;" " JACGC133 
5"/l " 

12600 PRINT -'PRINT 

12700 PRINT"2D0 RIS. ";GC23;" " JACGC23 3 
;"/i " 


12900 U1AIT400 

13000 CLS :PAPER0:INK5 

13040 REFI 

13050 REFI UERIFICA SCOF1F1ESSA 
13060 REFI 

13100 IFE=GC13THENGOTO13300ELSE13200 
13200 IFE=GC23THENGOTO13950ELSEGOTO14490 
13300 PRINT:PRINT:PRINT:PRINT:PRINT:PRIN 
T:PRINT 

13400 PRINTCHR$C43 ;CHR$C273 5 "N **** 

***************":PRINTCHR$C 
43 

13420 PRINTCHR$C43JCHR$C273 ;"N' SEI 

PRIFIO2 S 2 " :PRINTCHR$C43 

13440 PRINTCHRSC43 ;CHR$C273 ; "N **** 

******£****£*XX'‘ :PRINTCHR$C 
43 

13700 LETAK = ACGC13 3 £D 

13800 PRINT :PRINT :PRINT"HAI UINTO ",'AK 
13900 GOTOl4800 


13950 PAPER6 :1NK4 

14000 CLS :PRINT:PRINT :PRINT"SEI SECONDO 

o " 

14200 AK=ACGC233*D/2 

14300 PRINT :PRINT"HAI UINTO ";AK 

14400 GOTOl4800 

14490 CLS : INK3: PAPERO 

14500 CLS :PRINT:PRINT:PRINT"HAI PERSO CS 
IGH 2 22 3" 

14800 WAIT400 
14840 REFI 

14850 REFI RICHIESTA ALTRO GIOCO 
14860 REFI 

14900 CLS IPAPER0:INK2 
14950 PRINT 

15000 PRINTCHR$C43 ,*CHR$C273 ;"JUUOI GIOCA 
RE ANCORA ?" :PRINTCHR$C43 
15050 RESTORE 
15100 INPUTL$ 

15200 IFL$="SI"ORL$="S"THEN1900 

15300 PRINT:PRINT:PRINT"O.K.BYE-BYE 

li 

15800 END 
15890 REFI 
10900 REFI PARTE 2 
15910 REFI 

16000 CLS :PAPER0:INK5:PRINT 
16100 PRINTCHR$C43;CHR$C2735"N 
.LEURIERI2":PRINTCHR$ C 4 3 
16200 PRINTCHR$C43 ;CHR$C273;"N 
==========":PRINTCHR$ C 4 3 

16300 PRINT 

16400 PRINT"In questo gioco dogete usare 

II 

16500 PRINT"il mostro intuito e cercare 
d i " 

16600 PRINT' indovinare quale cane vincer 
a’ " 

16700 PRINT"Se il vostro levriero si eia 
s-" 

16750 PRINT"sifica nelle prime posizioni 

II 

? 

16800 PRINT" la somma scommessa viene mo l 

_ Il 

16900 PRINT"tipl icata per il quoziente i 
n-" 

17000 PRINT"dicato all’inizio del gioco. 

Il 

17300 PRINT :PRINT :PRINT"Premere ’RETURN’ 
per cont i nuare" 

17400 PRINT:PRINT"BUONA FORTUNA 2" 

17500 GETBA$ 

17600 RETURN 
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ISPEAK LOGO 

A cura di Paolo Ciancarini 


PREMESSA 

Con questo numero, LIST lancia una nuova 
rubrica dedicata ai linguaggi di 
programmazione di alto, diversi dal BASIC, ma 
più adatti di questo per imparare a 
programmare bene. Quest'anno la rubrica sarà 
dedicata ad un linguaggio di cui oggi si parla 
molto in Italia, il LOGO. Inventato circa 1 5 anni 
fa nel mitico MIT di Boston, direttamente 
derivato da uno dei più famosi linguaggi 
informatici (il LISP) è stato migliorato per anni 
prima di arrivare alla forma attuale, 
particolarmente adatta per chi vuole davvero 
imparare a programmare. Vedrete che, se ci 
seguirete con costanza e buona volontà, LOGO 
risulterà uno strumento tanto semplice da 
imparare quanto potente da usare nello 
scrivere i vostri programmi, i vostri 
videogiochi, ecc.. 

lo ho assunto l'incarico di guidarvi 
nell'affascinante universo di LOGO. L'ho usato 
in corsi d'introduzione all'informatica con i 
bambini, con i maestri e con professori di 
scuola superiore: vi assicuro che avremo 
parecchio da divertirci! 



INTRODUZIONE 

Si può usare un computer senza comprenderne 
affatto il funzionamento: ad esempio, si può 
giocare con un videogame sul Commodore 64 
senza possedere alcuna nozione di 
programmazione della grafica e degli «sprites» 
del 64. Quest'uso « passivo » di un computer va 
bene se volete usarlo solo per giocare o se vi 
accontentate per le vostre necessità dei 
programmi fatti da qualcun altro. 

D'altra parte programmare da soli il proprio 
computer sembra molto complicato, a prima 
vista: riuscire per esempio a scrivere un 
programma BASIC che disegni un semplice 
quadrato in alta risoluzione col C64 è 


un'impresa riservata a pochi esperti. Questo 
perché il BASIC del C64 è, per ciò che riguarda 
la grafica, un linguaggio di basso livello, troppo 
orientato alle caratteristiche della macchina. È 
dunque molto difficile sfruttare tutte le 
potenzialità del C64 mediante il suo BASIC 
normale. 

Certo, esistono BASIC più evoluti (il Simon's 
Basic, per il C64; il Basic Microsoft, per le 
marche che useranno il sistema operativo 
MSX), che offrono istruzioni grafiche di alto 
livello. 

Il punto è però un altro: saper programmare in 
un certo linguaggio non significa solo 
conoscere il significato delle varie istruzioni, 
bensì saper risolvere un dato problema e 
comunicarne la soluzione al computer usando 
tale linguaggio. Imparare ad usare il BASIC per 
scrivere programmi complessi non è né 
semplice né divertente. Dietro un bel 
videogioco ci sono anni di esperienza e mesi di 
lavoro. 

Oggi esistono invece linguaggi che 
permettono di programmare un computer per 
compiti sofisticati in maniera molto meno 
faticosa. È solo per ragioni storiche che il 
BASIC continua ad essere il linguaggio 
«nativo» di tutti i microcomputer. 

Questa nuova rubrica di LIST dovrebbe servire 
come introduzione a questi nuovi approcci 
semplici al mondo dell'informatica. Parleremo 
di nuovi linguaggi, possibilmente più evoluti e 
più semplici da usare che non il BASIC, e 
magari ne inventeremo di nuovi noi stessi. 
Facciamo subito un esempio di linguaggio 
inventato: supponiamo di possedere un robot 
che sappia eseguire solo due istruzioni: 

VAI AVANTI n 
GIRA A DESTRA a 

dove «VAI AVANTI n» significa «vai avanti di n 
passi » e «GIRA A DESTRA» vuol dire agirà a 
destra di a gradi »; n ed a sono numeri che 
possiamo decidere di volta in volta. 
Supponiamo anche che questo robot, mentre 
cammina, possa lasciare per terra una traccia 
continua, e formi così delle figure. Problema: 
cosa debbo dirgli per ottenere un disegno di un 
quadrato? 



















Non è difficile vedere che per la soluzione 
basta ragionare IDENTIFICANDOSI col robot: 

- debbo andare avanti per un po', diciamo per 
10 passi, poi girare a destra di 90 gradi (sapete 
dire il perché?), fare altri 10 passi (né più né 
meno, se voglio un quadrato), girare ancora a 
destra per 90 gradi, fare 10 passi, girare 
ancora e infine fare per la quarta volta 10 
passi. 

Abbiamo definito un ALGORITMO che è una 
parola che significa « metodo preciso ed 
eseguibile per fare qualcosa », per disegnare un 
quadrato. Tradurre in BASIC standard questo 
algoritmo sarebbe un'impresa non semplice, 
perché occorre tener conto di una serie di 
problemi che riguardano solo ed 
esclusivamente la macchina ed il relativo 
interprete, non certo il nostro algoritmo. Al 
robot basterà dire: 

VAI AVANTI 10 
GIRA A DESTRA 90 
VAI AVANTI 10 
GIRA A DESTRA 90 
VAI AVANTI 10 
GIRA A DESTRA 90 
VAI AVANTI 10 

Notate che possiamo disegnare qualsiasi 
genere di quadrato usando lo stesso algoritmo: 
basta aumentare o diminuire il numero di passi 
per il lato. 

Vedete bene che il nostro ipotetico robot è 
molto più facilmente programmabile di un 
qualsiasi computer che comprenda il BASIC. 
Con sole DUE istruzioni possiamo disegnare 
QUELLO CHE CI PARE: rettangoli, poligoni, 
persino cerchi e figure irregolari, ed 
ovviamente qualsiasi composizione di esse: 
per esempio una casa, od un volto. Solo la 
fantasia ci può porre un limite. Basta 
IMPARARE A PENSARE in termini delle 
possibilità che ha di muoversi il nostro robot. 
Programmare diventa facile come camminare\ 
Ma c'è di più: come vedremo si schiude tutto 
un nuovo modo di affrontare la geometria, ben 
più affascinante e divertente di quello classico, 
soprattutto perché più attivo. Dice un vecchio 
proverbio cinese: 

«se ascolto, dimentico; se vedo, ricordo; se 


faccio, capisco». 

E col nostro inesistente (ma non troppo) robot 
la geometria la costruiremo con le nostre mani! 
Uno dei limiti del nostro robot è che i 
«programmi» sono sequenze sterminate di 
comandi AVANTI e DESTRA, interessanti da 
pensare, ma noiosissimi da scrivere. Ci 
servirebbe un robot solo un pochino più 
intelligente! 

Questo robot in realtà esiste e potete simularlo 
con poca spesa sul video del vostro home 
computer. Dovete solo procurarvi un interprete 
(che è un programma che esegue programmi 
scritti in un dato linguaggio: quando accendete 
la vostra macchina automaticamente attivate 
l'interprete BASIC) del linguaggio LOGO. In 
commercio ne esistono per tutte le principali 
marche: Commodore, Spectrum, Texas, Atari, 
Apple, IBM, ecc.. 

LOGO è un linguaggio creato una quindicina di 
anni fa per insegnare a programmare in modo 
semplice e soprattutto divertente. LOGO è il 
primo dei linguaggi che cominciamo a 
presentarvi, perché è uno dei più semplici, ma 
soprattutto uno dei più affascinanti. 

Noi vogliamo dimostrarvi che LOGO è un 
mondo in cui si imparano davvero tante cose 
con pochissima fatica. Vogliamo introdurvi in 
questo mondo, perché alla fine diciate con noi: 

I SPEAK LOGO! 

NOTA: 

Questo ed i prossimi articoli saranno ricchi di 
programmi LOGO. Eseguirli sul calcolatore è 
caldamente consigliato: però chi non possiede 
un interprete LOGO non deve considerare 
questa serie di articoli inutile: se vorrà seguirci 
si accorgerà da solo del perché. 

Noi faremo riferimento costantemente al 
LOGO della Commodore, per i seguenti motivi: 

- il C64 è uno degli home computer più diffusi; 

- l'interprete LOGO è disponibile su disco e su 
nastro; 

- per il VIC 20 esiste una estensione BASIC 
(Turtle Graphics) che è una specie di miniLOGO 
più che accettabile; 

- è prevista l'uscita in commercio tra breve di 
una versione completamente italiana. Noi 
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presenteremo tutti i nostri programmi usando 
quello che dovrebbe essere il LOGO italiano 
standard, così come si può e vincere dal libro 
«LOGO: Ali per la mente». Per facilitarvi, alla 
fine di ogni articolo troverete un minidizionario 
di conversione LOGO italiano-inglese. 

PRIMI PASSI NEL MONDO DELLA 
TARTARUGA 

LOGO è un linguaggio completo sotto tutti gli 
aspetti, alla pari col PASCAL, o col BASIC. Ciò 
che lo rende tanto diverso da questi è la 
TARTARUGA. La tartaruga non è altro che il 
nostro robot: quando si muove lascia una 
sottile traccia sul video. 

Una volta entrati in ambiente LOGO (il che si 
ottiene caricando l'interprete e mandandolo in 
RUN) occorre chiamare la tartaruga: scrivete 
DISEGNA, premete RETURN ed osservate cosa 
succede: 


A 


lo schermo si è diviso in due « finestre »: 

- quella superiore contiene un triangolino con 
la punta larga all'insù, che rappresenta la 
tartaruga; 

- in quella inferiore appariranno i comandi che 
scrivete. 

(provate a premere i tasti FI, F3, F5 e 
osservate quello che succede). 

Cominciamo a fare la conoscenza della 

tartaruga: proviamo i comandi 

AVANTI 50 

DESTRA 45 

AVANTI 30 

DESTRA 90 

AVANTI 10 


(D'ora in poi resta implicito che alla fine di ogni 
riga battiate il tasto RETURN). 

Vedete che i numeri che seguono i comandi 
(che d'ora in avanti chiameremo ARGOMENTI, 
oppure INPUTS, del comando) hanno 
significato differente: nel caso di AVANTI 50 
abbiamo uno spostamento - nella direzione 
della punta larga del triangolino (la «testa della 
tartaruga ») - proporzionale all'argomento; nel 
caso di DESTRA 45 abbiamo un cambiamento 
dr direzione senza spostamento. 

Esistono due altri comandi il cui effetto è 
simmetrico a quelli visti, e cioè 
INDIETRO n 
SINISTRA a 

Provate a disegnare da soli un quadrato, 
usando solo questi nuovi comandi (sapete dire 
come cambia l'algoritmo precedente?). 

Ci sono poi altri due comandi molto utili 
PULISCI 
TANA 

che servono l'uno a pulire lo schermo e l'altro a 
riportare la tartaruga nella posizione di 
partenza. Notate che né l'uno né l'altro (così 
come DISEGNA) hanno argomento numerico. 
Invece i primi quattro ne hanno esattamente 
uno. LOGO, o meglio il suo interprete, protesta 
se ve lo dimenticate. Uno dei pregi del LOGO è 
che il messaggio che appare non è il solito 
inquietante e ostile SYNTAX ERROR del 
BASIC: LOGO è molto più amichevole e 
preciso. Se ad esempio scrivete solo 
AVANTI 

vi dirà che 

AVANTI VUOLE PIÙ ARGOMENTI 
mentre se scrivete tutto attaccato 
AVANT110 

osserverà che 

NON ESISTE NESSUNA PROCEDURA 
DI NOME AVANTI DIECI 
(Per ora prendete la parola procedura come 
sinonimo di comando). 
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Dunque non abbiate paura: se scrivete 
qualcosa di sbagliato LOGO stesso vi aiuta a 
correggerlo, nella maniera più amichevole. 
L'argomento di un comando può essere un 
numero negativo: sperimentate i comandi 
AVANTI (- 50) 

DESTRA (- 90) 

Vedremo più avanti perché in questo caso è 
meglio usare la parentesi. 

È possibile, volendo, usare delle abbreviazioni 
al posto di alcuni comandi: 


diventa AV 30 
diventa IN 40 
diventa DS 45 
diventa SN 64 
diventa PU 

Non è necessario scrivere un solo comando 
per riga: si può benissimo scrivere: 

AV 30 DS 72 AV 30 DS 72 AV 30 DS 72 AV 
30 DS 72 AV 30 DS 72 


AVANTI 30 
INDIETRO 40 
DESTRA 45 
SINISTRA 64 
PULISCI 



Questa è una sequenza di comandi che 
disegna un pentagono. Illegibile, vero? E non 
solo per l'uso di abbreviazioni, ma soprattutto 
a causa della lunghezza della sequenza. 
Provate invece a scrivere 

RIPETI 5 [AVANTI 30 DESTRA 72] 
la tartaruga disegna la stessa figura. 

Usare l'istruzione di ripetizione «RIPETI n (lista 
di comandi) - che significa «ripeti n volte la 
sequenza di comandi compresa tra le parentesi 
quadre » - rende il programma non solo più 
chiaro ma anche più semplice da modificare: 
osservate quanto è facile ottenere un esagono 
con un programma molto simile: 

RIPETI 6 [AVANTI 30 DESTRA 60] 




L'unica cosa che è cambiata è l'angolo di 
virata, che è unico per ciascun poligono: 
sapreste scoprire un sistema generale per 
calcolarlo per qualsiasi poligono? La soluzione 
la vedremo nel prossimo numero di LIST. 
Finora non abbiamo parlato di colore, ma 
naturalmente il mondo della tartaruga è 
colorato! 

Normalmente la tartaruga lascia tracce 
bianche su sfondo nero. Ma se usate i comandi 
COLOREPENNA n 
COLORESFONDO n 

dove l'argomento n è un numero compreso tra 
0 e 15, potete cambiare i colori della traccia e 
dello sfondo: scoprite voi il codice! 

Inoltre è possibile sospendere e riattivare 
l'azione della penna della Tartaruga mediante i 
comandi 

SU 

GIU 

che sono essenziali per creare disegni «non 
connessi», cioè divisi in parti non unite da un 
tratto di penna. 


Dizionario italiano-inglese dei termini LOGO 
introdotti in questa lezione 


Termine 

Termine 

Abbrev. 

italiano 

inglese 

inglese 

AVANTI 

FORWARD 

FD 

INDIETRO 

BACKWARD 

BK 

DESTRA 

RIGHT 

RT 

SINISTRA 

LEFT 

LT 

DISEGNA 

DRAW 


TANA 

HOME 


PULISCI 

CLEARSCREEN 

CS 

RIPETI 

REPEAT 


ARGOMENTO 

INPUT 


COLOREPENNA 

PENCOLOR 

PC 

COLORESFONDO 

BACKGROUND 

BG 

SU 

PENUP 

PU 

GIU 

PENDOWN 

PD 


BIBLIOGRAFIA 
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SINDROME CINESE 


ALLARME ROSSO alla Centrale Atomica!!! Nel 
nuovo generatore di energia è in atto la fusione 
del nucleo: si teme una SINDROME CINESE!!! 
L'unico modo per scongiurare l'imminente 


pericolo è cercare di «catturare» gli isotopi 
impazziti. 

Istruzioni inserite nel listato. 
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A cura di Paolo Ciancarini 


PREMESSA 

Il mondo della scuola comincia ad accettare, 
con grandi entusiasmi ma anche con forti 
resistenze, l'ingresso deH'informatica sia come 
disciplina di base, alla pari con altre, sia come 
un insieme di tecniche interdisciplinari di 
ausilio alle discipline classiche. 

Con questa rubrica LIST vuole venire incontro 
alle necessità della scuola e di chi, comunque, 
impara da zero ad usare un computer, iniziando 
una serie di articoli di introduzione 
aH'informatica, nell'ambito scolastico. 

SCUOLA E COMPUTER 

Appena 10 anni fa, un computer era qualcosa 
di molto costoso e assai complicato, il cui 
acquisto era ben al di là delle possibilità di 
ciascuno di noi. Inoltre l'aura magica che 
circondava gli uomini e gli strumenti 
dell'informatica non favoriva la diffusione 
dell'uso degli elaboratori elettronici. 

Poi vennero gli Apple e i Commodore, con 
tutta la loro progenie, ed il mondo cambiò. 
Oggi un sistema home-computer completo 
costa meno di un complesso ad alta fedeltà di 
qualità media, o di una buona macchina 
fotografica reflex. E non è finita qui: presto 
potremo portare un computer in tasca, od al 
polso, per un prezzo inferiore a quello di un 
orologio di marca. 

Insieme con l'abbassamento dei costi, si è 


verificato anche un fantastico ma naturale 
allargamento dei campi in cui si usano i 
computer: all'inziio, trentanni fa, le banche e le 
istituzioni militari erano gli unici organismi che 
si potevano permettere i grossi sistemi di 
elaborazione dell'epoca. Oggi un 
home-computer è diventato per tutti noi 
qualcosa a metà tra un giocattolo di lusso ed 
uno strumento di lavoro indispensabile. 

Però, quando un computer entra in una casa, 
nasce il problema del suo uso corretto: un 
computer è in effetti assai più che un 
giocattolo sofisticato. Eppure ben pochi ne 
conoscono le possibilità. Per parafrasare un 
noto slogan pubblicitario: ora che ce l'hai, che 
diavolo ci fai? 

È chiaro che la scuola dovrebbe essere in 
prima fila nello sforzo di «alfabetizzazione 
informatica» della società. Il fatto è che, 
almeno in Italia, per ragioni che non spetta a 
noi discutere, il mondo della scuola è in 
generale o inerte o disinformato di fronte a 
questa vera e propria seconda rivoluzione 
culturale (la prima fu quella dell'invenzione 
della scrittura). In molte scuole, oggi, l'idea di 
istruzione computerizzata significa che è il 
computer che sorveglia e insegna qualcosa agli 
allievi. Ho visto programmi d'apprendimento 
per bambini di scuola elementare che 
redarguivano con espressioni terrorizzanti 
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(«Somaro! Hai sbagliato!») i malcapitati che 
commettevano i loro naturali errori. Esempio di 
uso pessimo delle tecnologie informatiche. 
Pensate soltanto all'odio che accumuleranno 
per i computers quei bambini che sono 
costretti ad usare quei programmi. 

Un computer può invece diventare un 
eccezionale strumento per insegnare, se usato 
con criterio. Questa rinnovata rubrica di List 
vuole rivolgersi a tutti coloro che operano nel 
mondo della scuola, agli studenti ma anche ai 
docenti, dalle elementari alle superiori e oltre, 
per spiegare e soprattutto suggerire le 
applicazioni più interessanti per lo studio. 
Inoltre, questi articoli, proprio perché 
partiranno da un livello particolarmente 
elementare, interesseranno anche tutti coloro 
che si avvicinano per la prima volta ad un 
computer. Tutto quello che vi sarà richiesto è 
la buona volontà di seguirci. 

Questa serie di articoli si svilupperà lungo due 
linee per così dire «ortogonali»: 

- introduzione rapida all'informatica ed al 
mondo dei computer, mediante spiegazioni ed 
esempi semplici riguardanti macchine e 
programmi reali; per esempio parleremo molto 
dei nuovi computer con standard MSX; inoltre 
vedremo linguaggi più adatti del BASIC 
all'ambito scolastico (a proposito, avete visto 
la prima puntata della nuova rubrica su LOGO, 
in questo stesso numero?). 

- uso del computer come strumento 
interdisciplinare di cui molte (ma certo non 
tutte) discipline si possono giovare: parleremo 
certo di matematica e tecnologia, ma anche di 
musica, disegno, lingue, ecc.. Non 
presenteremo il solito programmino BASIC di 
soluzione di un sistema di due equazioni in due 
incognite. Parleremo piuttosto di programmi, 
anche in commercio, adatti a chi usa il 
computer per lo studio, e saremo naturalmente 
disponibili per qualsiasi richiesta specifica 
vorrete proporci. 

Cercheremo infine di corredare ciascun 
articolo con una piccola bibliografia utile per 
chi volesse approfondire gli argomenti toccati. 

HARDWARE E SOFTWARE 
Questi sono i primi due termini con cui si 
scontra chi entra in contatto col mondo 
dell'informatica. La definizione precisa è 
ingannevolmente semplice: 

- hardware è ciò che è duro, tangibile: «i fili e 
la plastica», la tastiera, il video, il registratore, i 
nastri, il drive, i dischetti, la stampante e la sua 


carta, il joystick. Tutto ciò che potete toccare 
del vostro sistema è hardware. 

- il software è più difficile da definire. Diciamo 
che l'hardware sta al software come 
un'orchestra sta alla partitura della musica che 
suona, come un libro sta al testo ed alle figure 
che contiene, come un televisore sta alle 
immagini che fa vedere. La metafora più 
calzante è forse la seguente: l'hardware sta al 
software come il cervello di un uomo sta ai 
suoi pensieri. Il software comprende i 
programmi che fanno funzionare il vostro 
sistema (il sistema operativo, gli interpreti, i 
compilatori) e i programmi che usate di volta in 
volta: videogiochi, fogli elettronici, applicazioni 
gestionali, ecc. 

Il software è dunque ciò che rende «vivo» un 
computer, che lo trasforma di volta in volta, ad 
esempio, in una macchina da scrivere 
sofisticata, o in uno strumento musicale, o in 
una tavolozza elettronica per disegnare, o in un 
videogioco. 

D'altra parte, come un'anima ha bisogno di un 
corpo per agire nella realtà, così bisogna dire 
che il software ha bisogno dell'hardware 
«giusto» per rendersi utile: un programma per 
elaborazione di testi serve a ben poco senza 
una stampante. 

Inoltre la distinzione tra i due in certi casi non è 
assolutamente netta: quando parleremo di 
«firmware» capirete cosa intendo. 

Per concludere questa chiacchierata iniziale, 
prendiamo a simbolo degli strettissimi rapporti 
che regolano la relazione tra l'hardware ed il 
software un antico diagramma cinese: 
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ANALISI 

di Piero Verzaschi 


Analisi 1 intende fornire un ausilio didattico a 
chi, per studio o per lavoro, si trova di fronte 
alla necessità di dover calcolare degli integrali 
definiti, oppure trovare le radici di 
un'equazione. 

Gli integrali vengono calcolati per via numerica 
con due diversi metodi, quello dei 
RETTANGOLI e quello più preciso dei TRAPEZI. 
Per quanto riguarda la ricerca degli zeri i 
metodi usati sono quelli di NEWTON, delle 
SECANTI e di BISEZIONE. 

Questi metodi comportano una conoscenza 
dell'analisi che esula da queste pagine, e quindi 
al contrario degli integrali (più facili da 


comprendere, anche solo intuitivamente), per 
la spiegazione dei metodi usati per la ricerca 
delle radici di una equazione si rimanda ad un 
più esauriente manuale di analisi. 

ATTENZIONE 

Digitare le righe che riguardano le istruzioni 
(1900 e seguenti) scrivendo nel modo 
minuscolo: ciò avviene battendo 
contemporaneamente i tasti SHIFT e 
COMMODORE, oppure continuando a scrivere 
normalmente facendo però attenzione a 
digitare correttamente i simboli grafici riportati 
nel listato. 


i s i 1 


10 REM ******************************** 

11 REM * CREATO DA : * 

12 REM * PIERO VERZASCHI * 

13 REM ******************************** 

14 REM * ROMA 13 / 7 / 1984 * 

15 REM *-* 

16 REM * RICERCA DEGLI ZERI DI UNA * 

17 REM * FUNZIONE E RELATIVO CALCOLO * 

18 REM ******************************** 

190 PRINT" **** © PIERO VERZASCHI 

200 FORFF =0TO100 ! hCXT 

210 REM ******************************* 
220 REM * PRESENTAZIONE * 

230 REM ******************************* 
240 POKE53280,6 :POKE53281,l 

250 PRINT-LHT 

260 PRINT"3 | . 

270 PRINT" ,—, |—v f —,|| ,—, |“ 

280 PRINT" 4 —| | | ,—| | | .—, | " 

290 PRINT" *—» l L »—* 

300 FORX = 0TO50:NEXT SPRINT "CHE" 

310 REM ****************************** 


* NUMERICO 


** * * 


DELL’ INTEGRALE. * 
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315 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
6 10 
620 
630 


DEFFNA(X)=2*X 

REM * MENU' * 


REM ****************************** 


PR I NT " BSfflOB. 

PRINT"CXfl 

PRINT“0- 

PR I NT "|] 


PRINT" 0 

PRINT" 

PRINT" 1 

PRINT" 

PRINT" £ 

PRINT" 

PRINT" 3 

PRINT" 

PRINT" 4 


PRINT "OL 


POSSIBILITÀ' DI SCELTA" 


I 

I INSERIMENTO NUOVA FUNZIONE 

I 

ICAL.NUMERICO DELL'INTEGRALE 

I 

I RICERCA DEGLI ZERI 

I 

|ISTRUZIONI" 

I 

ICANCELLAZIONE PROGRAMMA" 


REM ******************************* 
REM * INSERIMENTO OPZIONI * 


REM ******************************* 


_" ! REM 40 TRATTI 

s REM 40 TRATTI 


i REM 40 TRATTI 


A97.=0 

INPUT INSERISCI IL NUMERO PER LA SCELTA " J f\Y. 

IFAX=0THEN£070 

DEF FNA(X)=2*X 

IFA7.= 1THEN600 

IFA7.=2THEN1030 

IFA7.=3THEN2 150 

IFA7.=4THENPRINT"^ H : P0KE5328 1 ,6 :POKE53280,14:PRINT"a" ! END 
: REM ******************** 

PR INT°*J" : REM * CLEAR SCHERMO * 
s REM ******************** 


REM ****************************** 


640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
8 10 
820 
830 
840 
850 
860 


REM * CALCOLO INTEGRALE * 

REM ****************************** 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

INPUT"ESTREMO INFERIORE D'INTEGRAZIONE ",*A 

INPUT"ESTREMO SUPERIORE D'INTEGRAZIONE ";B 

INPUT"NUMERO ITERAZIONI"IN 

H=(B-A)/N 

S=0 

T=0 

S 1 =0 

FORI=1T0N 
X=A+I*H 

T=T+(FNA < X)+FNA ( X + H >>*H/2 
S=S+FNA(X+H/2> 

S1=S1+ABS((FNA (X)+H)-FNA <X)) 

NEXTI 

S=S*H 


+ 

I I—> I 

I I I I 

V. L L V. 


I I 

I I 

V. V. 
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870 Si=Sl*H 

880 REM ***************************** 
890 REM * STAMPA RISULTATI * 
900 REM ***************************** 


910 

PR int "rm 

" : REM 

40 SPAZI 

920 

PRINT" 

" : REM 40 

SPAZ I 

930 

PRINT" 

" :REM 40 

SPAZ I 


940 PRINT'CD METODO DEI RETTANGOLI" 

950 PRINT" CBS! ! di! GII JMKF < X > = " ; S 

960 PRINT"HS METODO DEI TRAPEZI" 

970 PRINT" PM 1 IT I PM I ri CX) = ";T 

980 PRINT"HS STIMA DELL 1 ERRORE“;S1 
990 PRINT"Bfi BATTI UN TASTO 9 

1000 GETG*: IFG$f= " "THEN1000 
1010 IFG$<>""THENS40 

1020 : REM ********************* 

1030 PR INT"'»J" s REM * CLEAR SCHERMO * 
1040 REM ****************************** 
1050 REM * RICERCA DEGLI ZERI * 

1060 REM ****************************** 


1030 

rr\ ain i 

PRINT" 

/- 

1 





s 

1090 

PRINT" 

1 

/ 

,— s 

1-* 

1 


1 100 

PRINT" 

1 

/ 

1—' 

1 

1 


1 1 10 

PRINT" 

1 

/ 

<- > 

-l 



1 128 

PRINT" 

1 

—— ■ 1 





1 130 

PRINT" 






J 


1140 IFA9X=0THEN1160 
1150 RETURN 
1160 A9X=1 
1170 MI=0 
1180 M2=0 
1190 M3=0 

1200 PRINT" ESTREMO INFERIORE"; 

1210 INPUT A 

1220 PRINT" ESTREMO SUPERIORE"; 

1230 INPUTB 
1240 X0=A 
1250 X1=B 
1260 S0 = A 
1270 S1=B 

1280 IFFNA ( A)*FNA(B )< =0THEN1310 

1290 PRINT" CAMBIARE GLI ESTREMI DELL'INTERVALLO" 
1300 GOTO 1200 

1310 PRINT"ERRORE TOLLERATO SULLE ORDINATE" 

1320 INPUT D 

1330 PRINT"ERRORE TOLLERATO SULLE ASCISSE" 

1340 INPUT DI 

1350 PRINT"SCEGLI L'INCREMENTO H" 

1360 INPUT H 
1370 PRINT"iJ" 

1380 GOSUB1070 
1390 Y0=(X0+Xl)/2 
1400 FOR1=1TO200 
1410 IFM1=0THEN1450 
1420 IFM2=0THEN1450 
1430 IFM3<>0THEN1950 
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1440 REM **************************** 

1450 REM * BISEZIONE * 

1460 REM **************************** 

1470 C=<A+B)/2 

1480 IFABS<FNA<C))>DTHEN1500 

1490 IF ABS <B-A) <D1THEN1530 

1500 IFFNA < C ) *FNA < A > <“0THEN1530 

1510 A=C 

1520 GOTO 1570 

1530 B=C 

1540 GOTO 1570 

1550 MI=1 

1560 REM ***************************** 

1570 REM * METODO DI NEWTON *_ 

1580 REM ***************************** 

1590 DEFFNB ) = (FNfìCX+H)-FNA (X >)/H 
1600 Y0=Y0-FNA <Y0 )/FNB < Y0) 

1610 IFABS(FNft<Y0))>DTHEN1650 

1620 IFFNA < Y0-D1)*FNA<Y0+D1> >0THEN1650 

1630 M2=1 

1640 REM **************************** 

1650 REM * METODO DELLE SECANTI * 

1660 REM **************************** 

1670 S = S0-(S1-S0)/<FNA<S1)-FNA<S0)>*FNA<S0> 

1680 IFFNA <S )*FNA <S0)>0THEN1710 

1690 S1=S 

1700 GOTO 1720 

1710 S0=S 

1720 IFABS <FNA <S ) )>DTHEN1760 

1730 IFFNA(S-D1)*FNA(S+D1)>0THEN1760 

1740 M3=1 

1750 REM **************************** 

1760 REM * STAMPA PARZIALI * 

1770 REM **************************** 

1780 : 

1790 : 

1800 PRINT"IP ISEZIONE";C 
1810 GOTO 1830 
1820 : 

1830 : 

1840 PRINT"NEWTON";Y0 
1850 GOTO 1870 
1860 : 

1870 : 

1880 PRI NT "SECANTI " J S " CLUT 
1890 GOTO 1910 
1900 : 

1910 NEXTI 

1920 REM ***************************** 

1930 REM * STAMPA RISULTATI FINALI * 

1940 REM ***************************** 

1950 PRINT" MMMMM " 

I960 PRINT"LA FUNZIONE " ; A$ 

1970 PRINT"VALE NEL PUNTO TROVATO !" 

1980 PRINT ,, HS r <X) = ,, ;FNA<C) BISEZIONE) 

1990 print ,, sìf<x> = ,, ;fna<Y0); " < newton ) 

2000 PRINT" 8GF < X > = "J FNA < S) SECANTI ) 
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£010 PRINT"BSH a BATTI UN TASTO ■ 

£0£0 GETK3?: IFK*= ” "THEN£0£0 
£030 IFK$<>""THEN240 

£040 REM ***************************** 

£050 REM * SCELTA FUNZIONE * 

£060 REM ***************************** 

£070 PRINTiPRINTCHR*< 147 ) " BMM«—B CR I VERE LA FUNZIONE" 

£080 INPUT" lM»MF <X) = ";Ag 

£090 PRINT:PRINT"540 DEF FNA<X)="A*:PRINT"Ag="CHRg<34>ASCHRg<34)":GOTOS40 
2100 PRINT" a BATTI £ VOLTE RETURN H” : PRINT " fi ITTIT 

£110 END 

£1£0 REM **************************** 

£130 REM * ISTRUZIONI * 

£140 REM **************************** 

£150 PRINT" J" :P0KE53£7£,££ 

£160 PRINT"L PROGRAMMA PUÒ 1 SVOLGERE £ DIVERSI SER" 

£170 PRINT"VIZI NEL CAMPO DELL'ANALISI : 

£180 PRINT" ^ER CONTINUARE BATTI UN TASTO" 

£ 190 GETJg! IFJg=""THEN£190 
££00 IFJg< >" n THEN££10 

££10 PRINT"JH 1) ~UO 1 RISOLVERE PER VIA NUMERICA GLI " 

£££0 PRINT"INTEGRALI DEFINITI.METODI USATI SONO" 

££30 : 

££40 PRINT"QUELLI NOTI DEI TRIANGOLI E DEI TRAPE-" 

££50 PRINT"ZI,IL PROGRAMMA FORNISCE INOLTRE UNA 
££60 PRINT"STIMA DELL’ERRORE CIOE'UNA STIMA DI " 

££70 PRINT"QUANTO IL VALORE REALE SI AVVICINA A" 

££80 PRINT"QUELLO TROVATO DAL COMPUTER.)" 

££90 PRINT" ^ER CONTINUARE BATTI UN TASTO" 

£300 GETJg:IFJg=""THENE300 
£3 10 IFJg<>""THEN £3£0 

£3£0 PRINT" U BH 2 ) -^L SECOMDO SERVIZIO INVECE EFFETTUA" 

£330 PRINT"LA RICERCA DEGLI ZERI DELLA FUNZIONE DA" 

£340 PRINT"TA." 

£350 PR I NT " -i L PROGRAMMA RICERCA GLI ZERI OPERAMMO" 

£360 PR INT "CON TRE METODI D IVERS I s /~0\ V/ r \ " 

£370 PRINT" ,9~~+/\ -s ; OGNUNO DI QUESTI TRE METOD I FOR" 

£380 PRINT"OLISCE UN VALORE DELLO ZERO,CONFRONTANDO" 

£390 PRINT"I VALORI OTTENUTI SI PUÒ'AVERE COSI'UN “ 

£400 PRINT"RISULTATO PIU' AFFIDABILE." 

£410 PRINT'^-^r- VI INSERISCONO GLI ESTREMI DELLA" 

£4£0 PRINT"FUNZIONE,DOPO SI IMMETTE NEL COMPUTER 
£436 PRINT"IL VALORE DELL’ERRORE MASSIMO AMMISSIBI" 

£440 PRINT"LE,SIA SULLE ORDINATE CHE SULLE ASCISSE" 

£450 PRINT”DOPO DI CHE SI INSERISCE IL VALORE DELL" 

£460 PRINT"INCREMENTO,CIOE'LA PRECISIONE CON LA " 

£470 PRINT"QUALE SI VUOLE RAGGIUNGERE LO ZERO" 

£430 PRINT"CERCATO.^L PROGRAMMA COMINCIA A GIRARE" 

£490 PRINT"QUANDO TROVA LO ZERO SCRIVE ’V - _T’E PRO" 

£500 PRINT"SEGUE FINCHE'NON HA TROVATO LO ZERO CON OGNI METODO.)” 

£510 PRINT” £PER CONTINUARE BATTI UN TASTO" 

£5£0 GET Jg:IFJg=""THEN£5£0 
£530 IFJg<>""THEN£540 
£540 POKE53£7£,£0 
£550 GOTO300 
READY. 
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RAGNI 


Vi trovate nei panni di un... archeologo; la 
vostra missione vi ha spinto, questa volta, 
aH'interno di una caverna alla ricerca di un 
inestimabile tesoro perduto! 

Ma alcuni terribili e velenosi ragni sembrano 
messi lì a guardia. 

Cercate di recuperare quanti pezzi del tesoro vi 


è possibile prima che i ragni vi catturino e vi 
blocchino con le loro tele. 

Ma stale anche attenti a muovervi nella 
caverna: il buio ed il terreno scivoloso non vi 
consentiranno infatti di procedere 
regolarmente. 
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220 RRINT 
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=■5 0 RRINT 

AT 

14- . T ; " 

ISTRM2ir.NI T 


s 

P: E M 






( s / n ) * ’ 





io 

REST 

O R E 




2 4-0 INPUT 

r $ 




so 

POR 

T 

= 14-4- 

T 

O 15 4- : 

F O R X =0 T 

250 IF r $ 


" THEN 

G 0 6 UB 15 10 

o 

"7 • 

REA D 


f : P O K 

E U S R 

C H R $ Z + X , f 

260 IF f $ 

= 1 ‘ 3 

‘ 1 THE N 

G O SUB 15 10 


N É X 

T X : 


NEXT 

z 



2 T 0 LET d 

O Z •— 

IL • 4- : 1_t 1 C C =0 : 1_tn 1 


3 0 

DATO 


2 4- . S 

4- . 

6 0.90 . 

2 4- ,36.3 6.6> 

Cd =1 : LET 

c d d 

= 0 : LET 

•q = 0 ; LET a = 

f=, 








16 : LET b = 

1 : 

LET r1= 

1 2 ; L ET r 4- = 1 


4-0 

D flTfi 


1 F. . Fi 

& . 

6 4- . 12 4- 

, ITO . ITO , 1 

2 : L ET r 2 = 

16 : 

LET r3 

= 16 : LET Z =9 

“7 

0,4-0 







LET p U =0 

LET t£=0 

LET U d =1 : 


SO 

DATA 


16.16, 

16.16 . 

16.16.16.1 

LET U 1 = 1 : 

LET 

U 4- = 1 : 

LET U 2 = -1 : L 

F, 








ET U 3 = 1: LET 

v i = 3 



6 0 

DATA 


. "7 

3 

"7 3 . “7 3 . 

”7 3 ."7 3 .”7 3 . "7 

2 6 O C L 6 












2 9 0 P RINT 

AT 

0.0; INK 2 : ‘ ’ B 


0 

DATA 


1 :=* F; . 

5 4- 

,96,2 4- 

. 3,0.0,0 

R M 

N 

I 

B " 


80 

DATA 


0 .0. 

0 . 

0.0,19 

2.4-8.15 

30 0 P RINT 

RT 

2 , O .; IN K 5 .; ' 1 U ite = 









. i . Pun 

t i 

= " P u 



SO 

DATA 


0 .0. 

0 . 

0.0,3. 

12.24-0 

310 RRINT 

RT 

z - 2 , O .; 

i n k i, ■ wtmmm 


100 

DATA 


1.2. 

12 

.4-8,19 

2.0.0.0 






1 10 

DhT h 


17,1 

«J .» 

20 .» 4- 

16,16,16,1 




I N K 1 ; " "«■■■■ 



DATA 


14-5 , 

F; 

,52,2 4- 

, 16,16,16 , 





1 h-, 







330 RRINT 

RT 

a . b ; IN K O .; R 


1 3 0 

DATA 


14-4. , 

so 

,4.8.16 

. 16., 16,16 , 

3 4-0 F O P: X 

~ 1 3 

T O 14- 

STEP -1: PRI 

i e. 







NT AT X , O ; 

INK 2 ; 

: N E XT X 


14-0 

R E M 






3 5 0 F O R X 

= .3 

T o r 1 - 1 

RRINT RT X 


150 

R E M 

i 

nizi 

a L 

i z z a z i 

o n e 

. 6 ; I M K 0 

" C ' ' 

N E XT 

X PRINT HT 


150 

r e r-i 






|- 1.6 ; INK 

2 ; ’ ‘ 

E; " 



170 

E n R D E R 5 • 

INK 0 : 

PAPER T: C 

3 6 0 F O P X 

= © 

T O r2-l 

PRINT hT X 

L_ 








, 13 ; INK O 

; 1 ’ C: 

' ' : NE XT 

X: PRINT HT 


150 

R F: I NT 

flT 

© . 

O ; " 

HML, JL 

r2.13; IN K 2 

; " B " 




■ 

» 

■ " 




3 T O F 0 R X 

~ £3 

T o r 3 - i 

: PRINT HT X 


190 

RRINT 



■ ■ 

■ ■ ■ ■ 

.13; IN K O ; 

" C: ‘ 

NEXT 

X: PRINT RT 

■ 

■ ■ 

1 " 






1-3.16; I N H 

; 

" B " 



S0O 

R R I NT 

’ * 


mr 

■HH ■ WKL ■ 

360 FQR X= 

8 1 

O r 4- - 1 : 

PRINT RT X 
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o ;-=t : 

INK 0 ; 1 ' C" : N E XT X. PRINT 

AT 

r i . 

O 

; INK 2 ; "E; 






r 4- , 2 

3 ; IN K 2 ; 1 ' B ' 1 



10 10 


F O R x =1 T O 

15 


NEXT 


X : PRIN 

3 3 0 

Fi_i R X = 1 TU 2 8-: BEEP .03 

. X 

. 

T AT 


a .b; INK 0 

; " H 

' ' 




N E XT 




10 2J0 


F O R X =1 T O 

10 


N E XT 


X 

4-00 

DEF FN O ( J = INT ( (F'EEK 2 

3 €:• 


1 0 3 0 


G U T u 4 7 0 






+ 256#PEEK 2 3 3 7 3 +35536+PEEK 2 

3 S 

74 

1040 


PRINT AT a 

. b ; 


O U E R 

1 

; IN K 3 

:■ s 0 :« 




; " D " 








4-10 

DEF F N p (X . y ) = (X + y + AB S 

1*. x 

- y 

1050 


U ET V x =V i - 

1 : 

IF V i = 

0 

THE N G 

j ’J e! 




n T fi 


1 3 7 0 










103 0 


I F U d =1 THE N 

L_ 

ET U d 


0 

4-20 

DEF F N n ( :• = F N p ( F N O ( i , 

FN 

o 

1070 


F O R X =1 T O 

15 


& E E P 


.00b . X : 

r ;• ;i 




N E X 

T 

X 






4-3 0 

FOR h =23374 TO 2 3 372 STEP 

— 1 

10 3 0 


LET a =18 : 

U ET 


b = 1 : 

PRINT AT 

1 : POKE h, . 0 : N EXT h 



|“ y_! , 

1 

3 ; INK 2 ; 

B " 





4-4-0 

R E M 



103 0 


F OR X =1 Tu 

1 5 


N E XT 


X : PRIN 

4-5 0 

R E M m o v i ni e n t, o 



T AT 


a .b; INK 0 

; " h 

' * 




4-3 0 

R E M 



1100 


F O R X =1 T O 

IO 


NEXT 


x 

4-70 

PRINT hT a.b; INK 0 ;"h" 



1110 


G O T O 4 7 0 






4 30 

U ET C C = C C + C I N K EY $ = " 3 ' ' i - 

C INK 

1120 


PRINT AT a 

. b ; 


O E R 

1 

; IN K 3 

EY $ = " 

5 " i 



; " D " 








4 30 

IF C C = — 3 THEN U ET C C =-2 



1130 


U ET V i =V i - 

1 : 

I F V i = 

0 

THE N G 

500 

IF C C =3 THEN U ET CC=2 



O T O 


137 0 






5 10 

U ET cddsCdd+1: IF Cdd >10 

TH 









EN U ET Cdd =0 : U ET Cd=Ul 



1140 


I F li d = 1 THE N 

U ET ud 

•- 

0 

5 20 

P RINT AT 13,0 ; CHR$ d OZ 



1150 


F O R X =1 T O 

15 


BEEP 


.00 8 . x : 

530 

PRINT AT 13,31; CH R$ d oz 



NEX 

T 

X 






540 

IF d O Z =13 4 THE N G O T O 5 

3 0 


113 0 


U ET a =13: 

U ET 


b = 1 : 

PRINT AT 

550 

U ET doz =13 4 : GO TO 5 70 



r 3 . 

1 

3 ; INK 2 ; 

B " 





530 

U ET doz =137 



1170 


F OR X =1 TO 

15 


NEXT 


X : PRIN 

570 

PRINT AT 2.0; INK 5;"Ui 

t e 

= 

T AT 


a.b ; INK 0 

; " h 

* ' 




v i 

."Punti = ‘ 1 .; p u 
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10 


NEXT 


x 
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PRINT AT ri. 8; INK 0; "C 
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I 
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PRINT AT a 

. b ; 


O U E R 

1 
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; " D ' ' 








5 30 

IF r 1 = 18 THEN U ET U 1 = - 1 
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U ET V i = V i - 

1 : 

IF V i = 

0 

THE N G 

3 00 
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. S 
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... . . 
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= 

0 

3 10 
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15 
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NEX 

T 
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3 20 

PRINT AT t-2.13; INK 0.; " 
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1240 
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PRINT AT 
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1 


|- 4 . 

£ 

3 ; INK 2 ; 

B " 





5 3 0 

IF r2 = lS THEN LET u 2 = -- 1 



1250 


F O R X = 1 TO 

15 


NEXT 


X : PRIN 
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IF U 2 = -1 THEN P RINT AT 

r £ 

. 1 

T PhT 


a . b .; IN K 0 

; " h 

' ' 








1230 


F O R X = 1 T O 

10 


NEXT 


x 

3 50 

U ET r 2 = r 2 + U 2 : P R I NT AT 

r £ 

. 1 

1270 


GO T U 4 7 0 
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C ' • 


1 2 8 0 


R E M 
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i 
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R E M 






3 3 0 
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. 1 

13 10 


U ET t e = 0 : 
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O ì 




13 2 0 
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O 14 
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- 1 : PRI 

33 0 
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% 
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T 
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PRINT AT r4.23; INK 0.; •' 

C ’ * 


1 3 3 0 


G O T O 4 7 0 






IF r4 

= Z OR r 4 Z THE N U ET U 4 = 

i 


1 3 4 0 


R E M 
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= 1 T O 1 

5 : BEEP . 

003 , X : 


N E XT X 


P . 03 . X : N E XT X 
14-S0 INPUT r $ 


14-3 0 IF r $ = ” S 1 ' THE N G O T Q 270 

14-4-0 IF r $ = ' 1 S ' ' THE N G O T O 270 

14-30 CU S 

14-30 FOR :x = 4- 0 TO -40 ST E P - 5 : BE 
EP . 06 , X : N E XT X 


14-70 STOP 
14-30 RE M 

14-yo rem istruzi o n i 
1500 REM 
1510 CLS 

1520 PRINT "BBBBBBBB R R G N 

I B B B B B B B B " 

1530 PRINT 

154-0 PRINT " SCOPO DEL GIOCO E 

RIU5CIRE RCOLLEZION hRE I TE 3 OR 
I CHE SI TROURNO NELLR TANA DEI 
RAG NI . " 


1550 PRINT '"DOUETE FARE ATTENZI 
O N E PER CHE' IRAQNI UI O ST A COCERA 

N NO E CERCHE-RAN N G DI FA R UI U OR O 

P PIGIO NIERI . ‘ 1 


1560>PRINT '"AUETE 3 UITE A DISP 
O SIZIo N E . UI M UOUET E MEDIANT E 

I TASTI 5/8." 

157-0 PRINT AT 21,0; FLASH 1;" P 

RE MERE UN TASTO PER INIZIARE - 1 
1530 PAUSE 100 

15 30 U ET r $= INK.EY$ : IF r $ = •■■• THE 

N GO TO 1530 


100 0 U ET a =13 


PRINT AT 1300 


R ET U R N 


U ET 


b = 1 ; 





























PIRAMIDE 


Sfidate il vostro COMPUTER in un gioco di 
calcolo e... astuzia!! 

Togliendo alternativamente un mattone alla 
volta fate in modo che la successiva mossa del 
vostro MPF causi il crollo della casa! 


Usate i tasti cursori per muovervi fino a 
sovrapporre il mattone che volete togliere 
quindi digitate il tasto 
Siete proprio sicuri di vincere?? 



GOSUB 30000 


) THEN RETURN 



GOTO 

10000 





930 

DO = 1: 

RETURN 




900 

DO = 

; 0: IF 

SCRN( X, Y ) = 

0 THEN 

RET 

1 000 

REM 












1010 

COLOR 

8: FOR I 

= 

0 TO 4: HLIN 

19 

URN 







- I 

,19+1 

AT 3 + I 

+ 

YY: NEXT I 


910 

IF 

SCRN ( 

X - 

2,Y + 2) < 

> 0 

AND 







WA ( 

SCRN( X - 2 

, Y 

- 2) ) > WA < 

SCRN ( 

X, Y) 

1 020 

COLOR 

4: FOR I 

= 

8 TO 12: HLIN 

1 








6, 22 

AT I + 

YY: NEXT 

I 



) THEN 

RETURN 





1 030 

COLOR 

3: HLIN 

17, 

18 AT 9 + YY: 

HLI 

920 

IF 

SCRN ( 

X + 

2, Y + 2) < 

> 0 

AND 







WA ( 

SCRN( X + 2 

, Y 

- 2) ) > WA < 

SCRN ( 

X, Y) 

N 17 

, 18 AT 

10 + YY 











1035 

COLOR 

14: VLIN 

9 

+ YY,12 + YY 

AT 


45 














































20: VLIN 9 + YY,12 + YY AT 21 

1040 COLOR 2: PLOT 20,11 + YY 

1045 COLOR 6: HLIN 14,24 AT 13 + YY: VL 

IN 14 + YY,15 + YY AT 19: VLIN 2 + YY, 

5 + YY AT 22 

1050 COLOR 15: FOR I = 2 TO 4; HLIN 2 

3,25 AT I + YY: NEXT I 

1055 COLOR 9: PLOT 24,3 + YY 

1090 RETURN 

1100 REM 

1110 COLOR 5: FOR I = 0 TO 4: HLIN 19 

- I , 19 + I AT 3 + I + YY: NEXT I 

1120 COLOR 5: FOR I = 8 TO 12: HLIN 1 

6,22 AT I + YY: NEXT I 

1145 COLOR 6: HLIN 14,24 AT 13 + YY: VL 

IN 14 + YY,15 + YY AT 19: VLIN 2 + YY, 

5 + YY AT 22 


1 150 

COLOR 5: 

FOR I 

= 2 TO 

4: HLIN 23 

,25 

AT I + YY: 

NEXT 

I 


1 160 

COLOR 0: 

PLOT 

17,7 + 

YY: PLOT 21 

,7 + 

YY: PLOT 

18,8 + 

YY 


1 165 

PLOT 20, 

8 + YY 

: PLOT 

19,9 + YY: 1 


OT 18,10 + YY: PLOT 20,10 + YY: PLOT 1 
7,11 + YY: PLOT 21,11 + YY 
1190 RETURN 
1200 REM 

1203 S = SCRN( X, Y ) 

1204 IF T = 1 THEN 1208 

1205 GP = GP + PRO) 

1207 GOSUB 15900 

1208 COLOR 0 

1209 POKE 781,18: CALL 768 

1210 FOR I = 0 TO 1: HLIN X - 1,X + 1 
AT I + Y: NEXT I 

1215 GOSUB 5000 

1220 IF KE > 36 THEN 1240 

1230 KE = KE + 3: COLOR 8: HLIN KE - 2 

,KE AT 38: HLIN KE - 2,KE AT 39 


1240 

RETURN 



1300 

IF X - 2 > 

= 0 THEN S(P) = 

X - 

O ■ p : 

= P + 1 



1310 

IF X + 2 < 

= 39 THEN S(F') = 

= X + 

2 : P = 

= P + 1 



1320 

RETURN 



1400 

FOR L.2 = 0 

TO P - 1 


1410 

SS (L2) = S (L.2) : NEXT L2 


1 420 

PS = P: RETURN 


1500 

DO = 0 



1505 

IF TX < 4 

THEN 1550 


1510 

IF SCRN( 

TX - 2,TY - 2) = ' 

0 THEN 

1550 

1515 

IF SCRN < 

TX - 4,TY) < > 0 

AND 

SCRN ( TX -- 4, TY 

- 4) > SCRN( TX 



- 2,TY - 2) THEN 1550 
1520 DO = 1: RETURN 

1550 IF SCRN ( TX + 2,TY -- 2) = 0 THEN 
RETURN 

1560 IF SCRN( TX + 4,TY) < > 0 AND 


SCRN( TX + 4,TY - 4) > SCRN( TX 

+ 2,TY - 2) THEN RETURN 
1570 DO = 1: RETURN 
1600 REM 

1620 S = SCRN( X , Y) 

1630 FOR J = 1 TO 4 

1640 COLOR 9: HLIN X - 1,X + 1 AT Y: HL 

IN X - 1,X + 1 AT Y + 1 

1649 POKE 781,17 

1650 CALL 768 

1660 COLOR S: HLIN X - 1,X + 1 AT Y: HL 

IN X - 1,X + 1 AT Y + 1 

1670 CALL 768 

1675 NEXT J 

1680 RETURN 
1700 REM 

1704 COLOR 0 

1705 FOR I = 0 TO 5: HLIN 0,16 AT I: NE 
XT I 

1710 IF IE = 1 THEN RETURN 
1720 FOR J = 1 TO IE - 1 
1730 X = (J - 1) * 6: GOSUB 1790 
1740 NEXT J 

1790 COLOR 8: PLOT X + 2,0: HLIN X + 

1,X + 3 AT 1: HLIN X,X + 4 AT 2 

1792 COLOR 4; FOR I = 3 TO 5: HLIN X + 

1,X + 3 AT I: NEXT I 

1794 COLOR 7: PLOT X + 2,4 

1799 RETURN 

5000 REM 

5010 RETURN 

10000 REM << INIT >> 

10010 DIM CO (15), F'R (15), WA (15) 

10020 POKE 214,128 

10100 FOR I = 0 TO 13: READ CO(I): NEXT 
I 

10102 DATA 2,13,13,10,10,10,8,8 

,8,4,4,4 ,4,4 

10105 WA <2) = 2:WA(13) = 5:WA(10) = 4: 

WA(8) = 3:WA < 4) = 1:WA(0> = 0 

10110 PR(2) = 5:PR(13) = 3:PR(10) = 2: 

F'R (8) = 1 : PR (4) = 0 

10120 FOR I = 0 TO 46: READ J: POKE 7 
68 + I,J: NEXT I 

10130 DATA 169,1,133,16,169,0,13.3,1 

7,169,140,133,18,164,17,173,48,19 
2,152,170,202,208,253 
10132 DATA 200,196,18,208,243,16 
5,18,173,48,192,152,170,2 
02, 208,253,136,196,17 

,208,243,1 98,16,208,2 

22,96 

11000 GOTO 21000 
11900 PO = 0 
11905 DE = O 
11910 IE = 3:TI = 0 
12000 REM 

12005 TEXT : GR : HOME 

12006 GOSUB 15900 

12008 IF DE = 1 THEN HOME : FLASH : PR 
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I NT 11 

TYF'E ’ . ’ FOR START": PRINT : 

INVERSE 

1 4030 

Y = Y - 2 





14034 

IF T = 1 AND Y = 14 THEN 

19009 

: NORMAL 


14035 

IF Y = 14 THEN 18000 


12010 

FOR Y = 1 TO 10 


14040 

IF P = 0 THEN 15000 


12020 

X = (10 - Y) * 2 


14045 

P = 0 


1 2030 

FOR I = 1 TO Y: COLOR CO( 

INT ( 

14050 

FOR LI = 0 TO PS - 1 


RND 

(14) * 14)) 


14060 

X = SS(LI): GOSUB 900 


12040 

HLIN X,X + 2 AT Y * 2 + 14 


14070 

IF DO = 1 THEN GOSUB 12 

00: GOSUB 

12050 

HLIN X,X + 2 AT Y * 2 + 15 

: X = 




X + 4 

: NEXT I 


1300 



12060 

NEXT Y 


14080 

NEXT LI 


12070 

GOSUB 1700 


14090 

GOTO 14020 


13000 

REM 


15000 

REM 


13003 

IF DE = 1 THEN 16000 


15015 

IF GP = 0 THEN 15100 


13005 

YY = 0: GOSUB 1000 


15020 

IF GP > = 20 THEN GP = 

GP * 4: 

13010 

IX = 19:IY = 38 


GOTO 

15030 


13020 

GOSUB 13900 


15022 

IF GP > =15 THEN GP = 

GP * 3: 

13030 

CALL 992:K = PEEK (1007): 

IF K 

GOTO 

15030 


< 12 

3 THEN 13020 


15024 

IF GP > = 10 THEN GP = 

GP * 2: 

13040 

IF K = 240 THEN 13800 


GOTO 

15030 


13042 

IF K = 241 THEN 13820 


15026 

IF GP < 10 THEN 15040 


13044 

IF K = 136 THEN 13840 


15030 

VTAB 21: HTAB 10: FLASH 

: PRINT 

13046 

IF K = 149 THEN 13860 


"! ! ! BONUS ! ! !" 


13048 

IF K = 174 THEN 13100 


15032 

FOR I = 1 TO 3000: NEXT 

I 

13050 

GOTO 13020 


15035 

GOSUB 15900 


13100 

IF SCRN ( IX,IY) =0 THEN 

13020 

15036 

FOR I = 1 TO 3000: NEXT 

I 

13110 

X = IX:Y = IY 


15040 

IF GP > 9 THEN GP = GP - 

10:PO = 

13120 

GOSUB 13700 





13130 

PO = PO - 1: IF PO < 0 THEN 

PO = 

PO + 

10: GOTO 15045 


0 



1504 1 

GP = GP - 1 : PO = PO + 1 


13140 

GOSUB 15900 


15045 

GOSUB 15900 


13200 

GOTO 14000 


15050 

CALL 768 


13700 

REM 


15060 

IF GP > 0 THEN 15040 


13710 

RETURN 


15100 

COLOR 0 


13800 

IF IY > 17 THEN IY = IY - 


15110 

FOR I = 38 TO 39: HLIN 0 

,39 AT 

13810 

GOTO 13020 


I: NEXT I 


13820 

IF IY < = 36 THEN IY = IY 

+ 2 

15800 

GOTO 16000 


13830 

GOTO 13020 


15900 

REM 


13840 

IF IX > =3 THEN IX = IX 

— r? 

15910 

HOME : IF GP = 0 THEN PRINT : GO 

13850 

GOTO 13020 





13860 

IF IX < = 35 THEN IX = IX 

+ 2 

TO 15920 


13870 

GOTO 13020 


15913 

PRINT ; GP;"00*" 


13900 

SI = SCRN ( IX - 1,IY) : S2 = 

SCRN ( 

15920 

PRINT 





15925 

INVERSE : PRINT " " ; 



IX,IY):S3 


SCRN( IX + 1,IY) 


13910 

COLOR 

9: 

HLIN 

IX - 

1, IX 

+ 1 

AT 

IY: HLIN IX - 

1 

, IX + 

1 AT 

IY + 

1 


13920 

FOR I 

= 

1 TC) 3 

0: NEXT I 



13930 

COLOR 

SI 

: VLIN 

IY, 

IY + 1 

AT 

IX 

1 

13932 

COLOR 

S2 

: VLIN 

IY, 

IY + 1 

AT 

IX 

13933 

COLOR 

S3 

: VLIN 

IY, 

IY + 1 

AT 

IX 

1 

13950 

RETURN 






14000 

REM 







14001 

KE = 0 







14002 

T = 0 







14003 

GP = 0 







14004 

GOSUB 

1600 





14005 

P = 0 







14010 

GOSUB 

12 

00: GOSUB 

1300: 



14020 

GOSUB 

1400 






15926 

15927 
15930 
15935 
15940 
16000 
16001 


IF PO < 10 THEN 
IF PO < 100 THEN 
PRINT POS"00 " 
NORMAL 


PRINT 1 
PRINT 


RETURN 
REM 
T = 1 

16003 YY = 0 

16004 X = 19:Y 

16005 IF DE = 

16010 

16006 GOSUB 1100 
16010 TX = 39:TY = 34 

16020 IF TX < =1 THEN TY = TY 


1 THEN GOSUB 1000: GOTO 


X = 37 
1 6029 
8000 
16030 
16040 TX 
16050 IF 


IF DE = 1 AND TY 


2: T 
= 18 THEN 1 


= 18 THEN 19000 


IF TY < 

TX - 2 

SCRN ( TX,TY) = 0 THEN 16020 
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16060 

GOSUB 1500 


16070 

IF DO = 1 THEN 16020 


16080 

X = TX :Y = TY 


16090 

GOSUB 1600 


16100 

GOSUB 1200 


17000 

REM 


17004 

I = 20 


17005 

1 = 1-1 


17006 

CALL 992:K = PEEK (1007) 

17007 

IF DE = 1 AND K = ASC + 

128 THEN 21050 


1 7003 

IF I > 0 THEN 17005 


17010 

COLOR 0: FOR I = 38 TO 39: HLIN 

0,39 AT I: NEXT I 


17100 

GOTO 13000 


18000 

REM 


18001 

Y = 0 


18010 

16 

COLOR 0: FOR I = YY + 

2 TO YY + 

18020 

HLIN 14,25 AT I: NEXT 

I 

18030 

0 

YY = YY + Y:Y = Y + 1: 

GOSUB 100 

18040 

GOSUB 18950 


1 8050 

IF YY < 21 THEN 18010 


18060 

GOSUB .18900 


1 8070 

GOSUB 18899:C = 8:X = 

6:Y = 15: 

GOSUB 

18890:C = 15:X = 25:Y 

= 7: 

GOSUB 

18893: 


18075 

COLOR 9: PLOT 27,9 


18080 

C = 4:X = 20:Y = 23: GOSUB 18896 

18085 

COLOR 7: HLIN X + 2,X 

+ 3 AT Y + 

1: HLIN X + 2, X + 3 AT Y + 2: 

HLIN X + 

1, X + 

3 AT Y + 4: HLIN X •+■ 1, 

X + 

3 AT Y 

+ 5 


1 8090 

GOSUB 18900 


1 8200 

GOTO 20000 


18800 

REM 


18890 

REM 


18891 

COLOR C: FOR I = 0 TO 

4; OLIN Y 

- I, Y 

+ I AT X + I: NEXT I: 

RETURN 

18393 

REM HATA 


18894 

COLOR C: FOR I = 0 TO 

3: HLIN X 

+ 1 , X 

+ 3 AT Y + I: NEXT I: 

PLOT 

X,Y: RETURN 


18896 

REM 


18897 

COLOR C: FOR I = 0 TO 

4: VLIN Y 

, Y + 6 

AT X + I: NEXT I: RETURN 

18899 

COLOR 0; FOR I = 23 TO 

39: HLIN 

15,25 

AT I: NEXT I: RETURN 


18900 

FOR I = 1 TO 3: GOSUB 

18950: NEXT 

I : RETURN 


1 8950 

REM 


18955 

POKE - 1 6303,0 


18960 

CALL 768 


18970 

POKE - 16304,0 

t 

18975 

CALL 768: 


18980 

RETURN 


19000 

REM 


19002 . 

X = 19:Y = 20: GOTO 14004 

19009 

i = 0 



19010 COLOR 0: FOR I = YY + 2 TO YY + 

16 

19020 HLIN 14,25 AT I: NEXT I 

19030 YY = YY + Y:Y = Y + 1: GQSUB 110 

0 

19040 FOR I = 1 TO 10: K = F'EEK ( - 1 
6336): NEXT I 

19050 IF YY < 21 THEN 19010 
19053 GOSUB 18900 

19055 GOSUB 18899:C = 5: X = 27:Y = 10 
: GOSUB 18890: X = 8:Y = 10: GOSUB 
18893:X = 12:Y = 21: GOSUB 18896 
19060 GOSUB 18900 

19199 IF DE = 1 THEN 21020 

19200 GOTO 12000 

20000 IF DE = 1 THEN 21000 

20001 IE = IE - 1 

20010 IF IE < = 0 THEN 20100 

20020 TEXT : GR : HOME : GOTO 12006 

20100 HOME : FRI NT "«< FINAL SCORE - 

- 11 ; PO; "00 >>>" 

20110 FOR I = 1 TO 5000: NEXT I 

20120 GOTO 21000 

21000 REM DEMO 

21010 DE = 1 :IE = 1: GOTO 12000 

21020 REM 

21040 GOTO 21010 

21050 GOTO 11900 

30000 RESTORE : FOR I = 1 TO 61: READ 
A: NEXT I 

30005 DATA 32,67,240,170,144,3 
,32,27,240,138,141,239,3, 

96 

30010 FOR I = 992 TO 1005: READ A: FOLE 
I,A: NEXT I: RESTORE : RETURN 
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SHARP MZ-700- 
ISTRUZIONI «POKE» 


Molto spesso, nei listati per 

10 Sharp MZ-700 compaiono 
istruzioni «POKE»: riteniamo 
utile, per i nostri lettori meno 
esperti in programmazione, 
fornire alcune spiegazioni 
sul funzionamento di tale 
istruzione, corredate di 
esempi per una migliore 
comprensione del suo uso. 
Come descritto nel manuale di 
istruzioni, il comando «POKE» 
scrive dati direttamente in un 
indirizzo di memoria RAM del 
calcolatore e può quindi 
essere considerato come un 
«tramite» fra il linguaggio 
BASIC ed il linguaggio 
macchina. Ma cosa significa 
esattamente «scrivere dati in 
un indirizzo di memoria»? 
Vedremo ora di comprenderlo 
utilizzando le peculiari 
caratteristiche dello Sharp 
MZ-700 che, al contrario della 
maggior parte degli 
home-computer in 
commercio, non possiede il 
BASIC residente, quindi, 
appena acceso, è direttamente 
programmabile in linguaggio 
macchina. 

La memoria di un computer è 
costituita da una serie di 
indirizzi numerati 
progressivamente in 
esadecimale da $0000 a 
$FFFF cioè, in decimale, da 0 
a 65535: d'ora in poi, per 
distinguerlo dai decimali, 
premetteremo ad ogni numero 
esadecimale il simbolo $. In 
ciascuno di questi indirizzi può 
essere «scritto» un qualsiasi 
numero o codice da $00 a 
$FF (da 0 a 255) che può 
indicare un semplice numero o 
carattere o simbolo grafico 
ma, più spesso, è anche un 
codice operativo che, tramite 

11 programma assemblatore 
MONITOR, permette di fornire 
istruzioni alla CPU: il 
programma MONITOR, 


A cura di E. Fabrizi 

residente su ROM nel 
computer, va ad occupare, 
appena acceso l'apparecchio, 
gli indirizzi da $0000 a 
$ 1200 . 

Vediamo ora, in pratica, come 
si possono visualizzare gli 
indirizzi di memoria ed i 
relativi codici scritti in essi: 
come è richiesto anche 
nell'uso del BASIC, per 
l'esecuzione di comandi e 
istruzioni premere il tasto 
«CR». 

Accendete il computer e 
battete il comando «D0000»: 
gli indirizzi di memoria da 
$0000 a $009F saranno 
stampati sullo schermo con i 
numeri in essi contenuti: 
potrete osservare che tali 
codici corrispondono a quelli 
indicati nel listato del 
programma assemblatore a 
pag. 169 del manuale, poiché 
gli indirizzi visualizzati sono 
parte di quelli occupati dal 
programma MONITOR; nella 
parte destra dello schermo 
compaiono i caratteri 
alfanumerici e grafici relativi a 
ciascun codice (vedi pag. 1 56 
del manuale). 

Battete ora il comando 
«DI 201»; compariranno una 
serie di numeri «FF» e «00» 
che stanno ad indicare un'area 
di memoria libera nella quale 
potremo scrivere dati sotto 
forma di codici esadecimali. 
Per eseguire tale operazione 
occorre impostare il comando 
«M» (modifica memoria) 
seguito dal numero di indirizzo 
(in esadecimale) a partire dal 
quale si vogliono introdurre i 
dati. Proviamo, ad esempio, ad 


introdurre il codice ASCII 
corrispondente alla lettera «A» 
($41). Battete il comando 
«MI 201 »; sullo schermo 
compare il numero di indirizzo 
chiamato ($1201) seguito da 
codice in esso contenuto 
($FF): il cursore si posiziona 
immediatamente accanto, in 
attesa che venga immesso da 
tastiera il nuovo codice. 
Battete il numero 41 e «CR»: il 
codice viene immagazzinato 
mentre compare l'indirizzo 
successivo ($1201) in una 
situazione esattamente 
analoga alla precedente. 
Inserite il numero 41 per una 
decina di volte, quindi uscite 
dalla sequenza premendo 
«SHIFT e BREAK». Battete di 
nuovo il comando «DI 201 »: 
osserverete che il contenuto 
dei primi indirizzi è stato 
modificato ed il codice «FF» è 
stato sostituito in essi dal 
codice «41 ». 

Veniamo ora all'area di 
memoria che viene più 
frequentemente indirizzata 
dall'istruzione «POKE» nei 
programmi BASIC: l'area RAM 
che controlla la 
visualizzazione dei caratteri 
sullo schermo. Lo Sharp 
MZ-700 possiede due serie di 
256 caratteri diversi (per un 
totale di 512) che occupano 
ciascuna una metà della 
CG-ROM: parte dei caratteri 
della prima serie (pag. 1 57 del 
manuale) è accessibile 
direttamente da tastiera, 
mentre i restanti e tutta la 
seconda serie (pag. 1 59) sono 
visualizzabili solo mediante 
indirizzi in linguaggio 
































macchina o, che è 
praticamente lo stesso, 
mediante l'istruzione «POKE» 
quando si programma in 
BASIC. 

Come sapete, l'area video è 
suddivisa in 1000 quadratini 
(40 x 25) in ciascuno dei quali 
può comparire un carattere; 
quando si programma in 
BASIC ogni quadratino è 
individuato da una coppia di 
coordinate che ne 
determinano la colonna e la 
riga di appartenenza: ad 
esempio, il comando 
«CURSOR 5, 2» posiziona il 
cursore nel sesto quadratino 
della terza riga. In linguaggio 
macchina, invece, ogni 
quadretto è controllato da una 
coppia di indirizzi di memoria: 
la prima coppia 
($D000-$D800 / 
53248-55296) controlla il 
quadretto in alto a sinistra 
dello schermo, la coppia 
successiva ($D001-$D801 / 
53249-55297) quello 
immediatamente adiacente a 
destra e così via fino alla 
coppia $D3E7-$DBE7 
(54247-56295) che controlla 
il quadretto in basso a destra. 
Perché due indirizzi per 
ciascun quadratino? I codici 
immessi negli indirizzi da 
$D800 determinano i colori 
del carattere e dello sfondo 
nonché l'appartenenza del 
carattere stesso alia prima (da 
$00 a $7F / 0-127) o alla 
seconda metà della CG-ROM 
(da $80 a $FF/ 128-255) 
mentre quelli immessi negli 
indirizzi da $D000 
determinano il carattere 
stesso. Facciamo un esempio: 
prendiamo il codice schermo 
$5A che corrisponde nella 
prima metà della CG-ROM ad 
una freccia e nella seconda 
metà ad un aereo; vogliamo 
far apparire i due simboli, di 


colore nero su fondo bianco, 
nel terzo quadretto in alto a 
sinistra sullo schermo. I dati 
numerici da trattare sono: 

- Indirizzi che controllano il 
quadretto: $D002 e $D802 
(53250 e 55298) 

- Codice per entrambi i 

caratteri: $5A (90) 

- Codice per il colore nero su 

fondo bianco: 

- $07 (7) per la prima metà 
CG-ROM 

- $87 (135) per la seconda 
metà CG-ROM 

«Pulite» lo schermo premendo 
«SHIFT e CLR» quindi portate 
il cursore di una riga in basso; 
battete il comando «MD002» 
ed inserite il codice 5A: nel 
terzo quadretto in alto a 
sinistra comparirà una freccia 
bianca su fondo blu; il colore è 
giustificato dal fatto che, 
quando il computer viene 
acceso, in tutti gli indirizzi da 
$D800 in poi viene immesso 
automaticamente il codice 
$71 corrispondente ai colori 
bianco su fondo blu - prima 
metà CG-ROM. Premete ora i 
tasti «SHIFT e BREAK» quindi 
battete il comando «MD802» 
ed immettete il codice $07: la 
freccia diventerà nera su 
fondo bianco, in accordo al 
codice fornito. Premete di 
nuovo «SHIFT e BREAK», 
battete il comando «MD802» 
ed immettete il codice $87: i 
colori rimarranno uguali ma, al 
posto della freccia, apparirà 
l'aereo. 

È facile ora comprendere il 
funzionamento di una 
istruzione del tipo «POKE A, 
B»: quando essa compare in 
un programma BASIC viene 
inserito nell'indirizzo 
determinato dal numero A il 
codice B; i numeri A e B 
possono essere forniti in 


decimale o in esadecimale 
premettendo ad essi il 
simbolo «$». 

Proviamo ora, come esempio, 
a programmare in BASIC le 
stesse operazioni eseguite in 
linguaggio macchina. 
Spegnete il computer quindi 
riaccendetelo e caricate il 
BASIC; battete il seguente 
programma: 


10 PRINTjk » 

20 POKE53250,90:GOSUB1 00 
30 POKE55298,7:GOSUB100 
40 POKE55298,1 35 
50 END 

100 F0RK=1 TO3000:NEXT:RETURN 

Concludendo, il controllo di 
ciascun quadratino dello 
schermo necessita di due 
istruzioni «POKE»: nella prima 
va inserito il numero del 
quadratino a partire da 53248 
ed il codice del carattere che 
si vuole stampare, mentre 
nella seconda va inserito il 
numero dello stesso 
quadratino a partire da 55296 
seguito dal codice che ne 
determina il colore e 
l'appartenenza alla prima o 
alla seconda metà della 
CG-ROM. 

Poiché sul manuale non sono 
riportati i colori relativi a 
ciascun codice, vi suggeriamo 
di farne una tabella utilizzando 
il seguente programma: 

10 PRINTok » 

20 FORK=0TO255 
30 POKE53248+K*2,90: 

P0KE55206+K*2,K 
40 NEXTK 

50 CURSOR0,22:END 

I due caratteri individuati dal 
codice 90 saranno visualizzati 
sullo schermo in tutte le 
possibili combinazioni di 
colore, a partire da quella 
relativa al codice zero. 
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Lo spirito informatizzato 
dell'Europa 

Esprit, in francese significa «spirito», «anima», 
ma nel linguaggio tecnologico degli europei 
vuol dire: European Strategie Program for 
Research and development Information 
Tecnology. Esprit rappresenta anche lo spirito, 
l'anima, con la quale la Comunità Europea ha 
varato, un anno fa, un colossale progetto di 
ricerca per tentare di recuperare il ritardo che 
l'Europa ha rispetto agli Stati Uniti e ai 
Giappone nelle tecnologie dell'informazione. 
Etienne Dauvignon, il commissario della 
Comunità Europea, che ha patrocinato il 
progetto Esprit, sostiene che, in questo modo, 
l'Europa ritorna a nutrire ambizioni nel campo 
della ricerca tecnologica. Esprit è un tuffo 
nell'informatica; un programma in due fasi: 
1984-1988 la prima, 1989-1993 la seconda. 
Per l'attività di ricerca sono stati stanziati 
2.056 miliardi; 1.028 sono stati messi a 
disposizione dalla Comunità Europea mentre 
una cifra equivalente viene dalle industrie 
private europee che partecipano al progetto. 
Per l'Italia sono impegnate la Olivetti, la Stet, 
e una quindicina di piccole e medie industrie. 
Se l'Europa non trova una risposta adeguata 
alla sfida tecnologica che viene dai paesi più 


avanzati non potrà padroneggiare il proprio 
destino. 

È noto ormai che l'informatica sarà la causa 
di una profonda modificazione sociale ed 
economica che avrà, in un futuro molto vicino 
a noi, un impatto ed implicazioni ben più 
complesse di quelle che la rivoluzione 
industriale portò nel XVIII secolo. 

L'economia e lo sviluppo tecnologico della 
società sono passati attraverso l'era della 
macchina a vapore, poi attraverso quella 
dell'elettricità. Adesso comincia l'era dela 
società elettronica. 

Nuovi strumenti ed apparecchiature, nate 
dall'elettronica, compaiono quasi ogni giorno 
nell'attività di lavoro e di svago dell'uomo. 

Senza che nessuno di noi ne abbia precisa 
coscienza si sviluppa un nuovo modo di vita. 
Sono le straordinarie applicazioni di una 
tecnologia che cambia, in modo progressivo, 
il nostro modo di essere quotidiano. Il nostro 
paese, insieme con l'Europa, deve uscire, in 
campo tecnologico, dalla politica del giorno 
per giorno che ha caratterizzato, per molto 
tempo, questo settore. Un buon passo è stato 
fatto con Esprit. 

Esprit è anche un programma di cooperazione. 
Da una parte la Comunità Europea, dall'altra 
le imprese che hanno aderito al progetto, poi 
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le Università e i vari Centri di Ricerca nazionali 
dei paesi che hanno chiesto di entrare in Esprit. 
L'avvio è stato graduale; l'onere comunitario 
è stato di 62 miliardi di lire per il 1984. 
Quest'anno sono disponibili 140 miliardi. 
Esprit si occupa soprattutto di ricerca, quindi 
l'interesse del programma è rivolto non alla 
fase industriale, alla «fabbricazione» dei 
sistemi informatici, ma alla ricerca pura, 
tenendo conto di due importanti elementi: il 
numero crescente delle persone che devono 
imparare a servirsi di queste tecnologie nei 
prossimi anni e il fatto che queste tecnologie 
dovranno essere impiegate in modo sempre 
meno complesso. La Comunità Europea ha 
cominciato ad occuparsi di tecnologia 
deH'informazione con impegno crescente dal 

I 971, ma Esprit rappresenta il più impegnativo 
progetto lanciato fino ad oggi dagli europei al 
di fuori del settore nucleare. 

Vediamo ora come è articolato il programma 
quinquennale di Esprit. 

II progetto è diviso in cinque sezioni. La prima 
non trascura nessuna delle tecnologie 
principali per la microelettronica (MOS, 
bipolari, arseniuro di gallio, optoelettronica). Il 
settore del trattamento delle informazioni si è 
molto sviluppato negli ultimi tempi con una 
offerta molto ampia di sistemi di elaborazione 
dati e con una varietà notevole di calcolatori 
più o meno grandi e più o meno intelligenti. 
Anche il software di applicazione si è 
sviluppato come un vero prodotto di massa 
in particolare per i personal computers. La 
seconda sezione di Esprit si occupa della 
tecnologia del software ed è, forse, la parte 
più vaga dell'intero progetto poiché, essendo 
la ricerca in questo campo molto competitiva 
tra le industrie, è chiaramente problematico 
indurre aziende concorrenti, e di paesi diversi, 
a collaborare insieme per sviluppare tecnologie 
che tutti potrebbero poi sfruttare. È, questo, 
un sotto-progetto dove avranno invece molto 
spazio le Università e i Centri di Ricerca 
nazionali. 

Il terzo settore di Esprit è certamente il più 
ambizioso; riguarda, infatti, lo studio di nuove 
architetture del calcolatore per l'applicazione 
dell'Intelligenza Artificiale, quindi i sistemi che 
trattano anche la conoscenza e non solo i 
dati. Da questo sotto-progetto potrebbero 
scaturire tre nuove «macchine»: la stazione di 
lavoro, la copiatrice intelligente e il centralino 
universale. 


Al quarto settore appartiene, invece, lo 
sviluppo delle macchine «word processing» 
per sostituire le macchine da scrivere. Sono i 
sistemi d'ufficio; in questo capitolo del 
programma Esprit ci si preoccupa anche del 
complesso problema dei posti di lavoro che, 
in una società largamente informatizzata, non 
potranno essere affidati, evidentemente, a 
persone che non hanno alcun rudimento delle 
macchine. 

L'ultima sezione del progetto europeo per 
l'informatica tratta dei problemi di integrazione 
dei calcolatori nell'intero sistema produttivo; 
un aspetto importante del futuro informatico, 
il più importante forse, poiché è di particolare 
complessità per i problemi 
dell'interfacciamento che propone. 

Con il lancio di Esprit l'Europa, dunque, si 
propone di colmare il ritardo nei confronti di 
Stati Uniti e Giappone. Ma l'Europa non vuole 
fare una politica di inseguimento delle 
conquiste tecnologiche di altri, in campo 
informatico. Se americani e giapponesi hanno 
«inventato» cose che possono esserci utili per 
progredire, utilizziamole pure. Nuove cose, 
nuove macchine possono essere prodotte 
anche con le risorse che già esistono. 

Ma Esprit ha, purtroppo, anche qualche 
carenza. Uno dei settori nei quali la 
microelettronica ha compiuto passi enormi, 
anche sotto il profilo economico, è quello dei 
videoregistratori, dei videogiochi e dei gadgets 
elettronici. Di questo settore, incredibilmente, il 
progetto Esprit non parla. L'industria 
giapponese ha, in pratica, monopolizzato 
questo mercato di largo consumo e che, in 
futuro, sarà ancor più remunerativo. 

In Europa, in questo settore, esiste già un giro 
daffari di 25 miliardi di dollari, come dire 45 
mila miliardi di lire; una cifra pari alla metà 
dell'indebitamento del nostro paese. Esprit, 
dunque, ignora questa parte del mercato della 
microelettronica e non fa neppure cenno a un 
prodotto, l'apparecchio integrato che unifica 
TV, radio, videoregistratore, home computer e 
alta fedeltà, che avrà larga diffusione nello 
scenario tecnologico futuro. Peccato. I dieci 
ministri della Ricerca Scientifica della CEE che, 
un anno fa, hanno lodevolmente varato Esprit, 
forse non sanno che «giocare» oggi con un 
personal o con un videogioco può voler dire 
gettare le basi, divertendosi, per una 
professione altamente qualificata nel futuro 
informatico dei nostri ragazzi. 
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Continua anche in questo numero, la 6 a e la 7 a lezione 


SEGA SC-3000 


LEZIONE 6 

10 CLS :Z$=CHR$C343 

20 CURS0R3,0 :PRINT"LEONI INFORMATICA M 
ILANO" :GOSUB860 

30 CURSOR9,3 :PRINT "NUMERI e STRINGHE" 

40 CURSOR0,5:PRINT "Il tuo Personal Co 
mputer SC-3000" 

50 CURSOR0,6 :PRI NT "e’ in grado di eia 
borare ":PRINT "moltissimi DOTI." 

55 CURSOR0,9:PRINT "Ha che cosa e J un 
DOTO nel BASIC?" 

56 CURSOR0 5 10 : PRI NT "Ci sono due tipi 
di dato:" 

57 CURSOR0,12:PRINT "NUMERI e STRINGHE 


58 CURSOR0, 14 :PRINT "I NUMERI possono 
essere " 


60 CURSOR0, 15 : PR I NT " s. I a con che senza 
la virgola." 

70 CURSOR0, 16 :PRINT "ESEMPI" 

80 CURSOR0, 18 :PRINT "188":PRINT ".098" 
:PRINT "-21":PRINT "-5.4" 

110 X$=INKEY$ 

120 IFX$=""THEN110 

130 CLS:CURSOR0, 1 :PRINT "Le STRINGHE s 
ono un insie me" : PRI NT "di combinazioni 


di:" 

140 CURSOR0,4 :PRINT 
C5.87 0.9 -li 
145 CURSOR0,5 :PRINT 
ICI CAA CIAO USUI 
150 CURSOR0,6 :PRINT 
I C @ 2 # I 

160 CURSOR0,8 :PRINT 


NUMERI 

CARATTERI ALFABET 
CARATTERI SPECIAL 


Le stri nghe uen 9 o 
no anche ehiamate":PRINT "STRINGHE ALF 
ANUMERICHE":CURSOR0,11=PRINT "Esempi d 


i Stringhe alfanumeriche." 


170 CURSOR0, 13 :PRINT "$":PRINT "INSERÌ 
SCI L’ETÀ’ 1 SPRINT "RD5RF E GG5F55":PRI 
NT "IL PREZZO E’ =" 

171 CURSOR0, 18 :PRINT "Il compito delle 
STRINGHE e’ dl":PRINT "permettere all 

e informazloni":PRINT "NON-numeriche": 
PRINT "di essere elaborate dal compute 


r . " 

180 X$ =INKET$ 

190 IFX$=""THEN180 

200 CLS :CURSOR0,0:PRI NT "ESERCIZ 1 0":PR 
INT " 


205 CURSOR0,3 : PRINT "Quale di queste E 
’ esatta?" 

210 CURSOR0,5 :PRINT "1. 12345" ;TABC23 
3;"-e’ un numero":PRINT "2. LEONI S.r 
. I"JTABC231 ; "-e’ una stringa" 

220 CURSOR0,7 :PRINT "3. Uia Don Rodri 
go 6" ; TABC233 ; "-e ’ un.a s t r i nga" :CURSOR 
0 j 8 : PRI NT "4. Tel. 02/8465738" ; TABC23 
3 j"~e’ una stringa" 

230 CURSOR0,9 : PRI NT "5. sono tutte co 
rrette " 

240 CURS0R5,11 :PRINT "Cl, 2, 3, 4, opp 
ure 53 " :CURS0R28, 11 : INPUT A 

250 IFA=5 THEN280 

260 IFA =1 THEN266 

261 IFA=2 THEN266 

262 IFA=3 THEN266 

263 I FA = 4 THEN266 

265 GOTO240 

266 CURSOR0, 16:PRINT "ATTENZIONE, con 
trolta meglio anche le" 

267 CURSOR0, 17=PRINT "altre: le strin 
ghe possono essere : " :CURSOR0, 18 : PRINT 

"ALFABETICHE" 

268 CURSOR0, 19:PRINT "NUMERICHE":CURS 
OR0,20 : PRINT "ALFANUMERICHE" 

270 X$=INKEY$ 

273 IFX$=""THEN270 

274 CURSOR0, 16 :GOSUB890 :GOTO240 

280 CURSOR0,16:PRINT "BRAU022 " 

281 CURSOR0, 17 : PRINT "Ora che sai cos 

a sono le STRINGHE" 

282 CURSOR0, 18:PRINT "possiamo proseg 
u ire. 11 

283 X$=INKEY$ 

284 IFX$=""THEN283 

290 CLS :CURS0R9,0 :PRINT "STRINGHE Uari 
abili" :PRINT " 


291 CURSOR0,3 :PRINT 
la che e’ la " 

292 CURSOR0,4 : PRI NT 
ARI AB I LE : " 

293 CURSOR0,5 :PRINT 
zar e dei calori" 

300 CURSOR0,6 :PRINT 
s. INPUT A 3" 

310 CURSOR0,8 :PRINT 
BILE si ri conosce " 
320 CURSOR0,9 : PRINT 


R i c o r d i amo ci quel 
funzione di una U 
essa d e <ue memor iz 
ne l Computer. C e 
Una STRINGA UARIA 
dal segno $ aggiu 
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una uari 


nto alla UARIABIUE : " 

322 CURSOR0, 11 :PRINT 
ab ! le NUMERICA" 

323 CURSOR0,12 :PRINT 
ab i le STRINGA" 

324 CURSOR0,14:PRINT 
una STRINGA ALFANUM. 

325 CURSOR0, 15 :PRINT 


365 CURSOR0, 3 :PRINT " 
i utili zzano per" 

366 CURSOR0, 4 :PRINT " 
calcoli." 

367 CURSOR0, 6 :PRINT " 
o n d arre n t a l i " 

368 CURSOR0,7 :PRINT " 
M OPERATORI : " 

369 CURSOR0,9 :PRINT " 
one":CURSOR0,10:PRINT 

370 CURSOR0,11:PRINT 
CURSOR0,12:PRINT 
RSOR0,13:PRINT 


A e 5 

A$ e ’ una cari 

Per memori zzar e 

ne l Computer, s i 

10 INPUT A$" :CUR 
stampare sul v 

35 PRINT A$" 

ESPRESSIONI": 

I dati numerici s 

far esegui re de I 

Ue 4 operazioni f 

sono svolte con g 

* mo11lpllc azl 
"/ divisione" 

"+ addizione": 

sottrazione":CU 
e levam. a potenza 


utili zza : " 

330 CURSOR0,17 :PRINT 
SOR0,19 :PRINT"Per farla 
ideo, si usa:" 

331 CURSOR0,21 :PRINT 
340 X$=INKEY$ 

350 IFX$=""THEN340 
360 CLS :CURS0R9,0:PRINT 
PRINT " 


371 CURSOR0, 15 :PRINT "Ue ESPRESSIONI s 
ono costituite da" :CURSOR0,16:PRINT "c 
ombinazioni tra" : CURSOR0,18 :PRINT "UAR 
IABILI e COSTANTI " :CURSOR0,19:PRINT " 
della stessa specie," 

372 CURSOR0,21:PRINT "legate dagli OPE 
RATORI matematici." 

380 X$=INKEY$ 

390 I FX$ = " " TFIEN380 

400 CUS :CURSOR0,0 :PRINT "Della stessa 
specie vuole dire che" 

402 CURSOR0, 1 :PRINT "non si possono le 
gare : " 

410 CURSOR0,3:PRINT "UARIABIUI e COSTA 
NT I numeriche" 

420 CURSOR0,5 :PRINT "con" 

430 CURSOR0,7:PRINT "UARIABIUI e COSTA 


NTI stri nga" 

450 CO=0 :RI=9 :GOSUB950:RI = 10:GOSUB1000 
:CURSOR0,11:PRINT " Ue COSTANTI sono 

que i valor i" ;TABC36D ;" " 

451 CURSOR0, 12 :PRINT " sia NUMERICI 
che AUFANUMERICI,"JTABC36D;" " 

452 CURSOR0, 13 :PRINT " che non posso 
no subire var iazIon i" ; TABC363 ; " " 

453 CURSOR0, 1 4 :PR I NT " durante Pese 
cuzione del progr . " ;TABC36D ; " ":RI = 15: 
GOSUB1000 

454 CURSOR0,16 :PRINT " ES. A e J una 
UARIABIUE NUM. " ;TABC3‘6D ; " " 

455 CURSOR0, 17 .'PRINT " 33 e » una 

COSTANTE NUM. " ,'TABC36D ;" " 

456 CURSOR0,18 :PRINT " A$ e’ una 

UARIABIUE AUFANUM."JTABC363;" " 

457 CURSOR0, 19 :PRINT " " ; "DATA" ,*2 

e 5 una COSTANTE AUFANUM. " ; TAB C 36 3 

« li il 

? 

460 RI =20:GOSUBÌ000:RI=21:GOSUB960 
480 X$=INKEY$ 

490 IFX$=""THEN480 

500 CUS:CURSOR0,0 :PRINT "ESEMPI di ESP 
RESSIONI" : PRI NT " 

li 

520 CURSOR0,3 :PRINT "Espressioni numer 
i c h e : " 

522 CURSOR0,5 : PRINT "1. CA*223/-CB + 

CD = 8.8" :CURSOR0,6 :PRINT "2. AXA/ 

12 = 8 - 3 3333" 

524 CURSOR0,7 :PRINT "3. C/CB+11DXA 

= 1.61290" 

528 CURSOR0,9:PRINT "Dove abbiamo post 
o A=10 B=20 C=5 " 

530 CURSOR0,11 :PRINT "Espressioni alfa 
numer i che" 

532 CURSOR0,13:PR1NT "1. A$+B$ 

CIAO PINUCCIA" 

533 CURSOR0, 14 :PRINT "2. A$+C$+B$ = 

CIAO IO SONO PINUCCIA" 

535 CURSOR0, 16 :PRINT"Dove A$=";2$;"CI 

AO " ,'7$:CURSOR0, 17:PRINT " B$=" 

$ ;"PINUCCIA " ;z$ :CURSOR0,18 : PRINT " 
C$=" ;2$ ; "IO SONO " 

536 CURSOR0,20 :PRINT "NOTA. Ue opera 
zion i tra str inghe, " :CURSOR0,21 :PRINT" 
saranno analizzate a fondo in seguito. 

Il 

540 X$=INKEY$ 
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550 I FX$ = " 11 THEN540 
560 GOTO810 

570 CURSOR0,7:GOSUB880 

500 CURSOR0,9 :PRINT "20 INPUT A" 

610 CURSOR0, 10 :PRINT "30 PRINT" ,"2$ ; "Ha 
i ";2$;"365*A";2$;"giorni" ;2$ 

620 CURSOR0, 11 :GOSUB880 :RETURN 

630 CLS:CURSOR15,0 SPRINT "ESERC1210":G 

OSUB880 

640 CURSOR0,4:PRINT "Se la frase di PR 
INT e ’ " :CURSOR0,6:PRINT "20 PRINT TABC 
3 3 ;2$ ; "MICKEY";2$ ; ";TABC153;";2$;"M0 

USE" ;2$ : CURSOR0,9 :PRINT "cosa ci sarà’ 
sullo schermo?" 

650 CURS0R5,11 :PRINT "1 niCKET 
HOUSE" :CURS0R5,13:PRINT "2 NICKEYMO 
USE" 

651 CURSOR8, 15 :PRINT "CI oppure 23 

li 

670 A=0 :CURS0R21, 15 : INPUT A 
680 IFA=1 THEN780 

700 IFA=2THEN CURSOR0,17 :PRINT "Stai p 

iu’ attento 2 " :CURSOR0, 18:PRINT "Non «uè 

di che ci sono due TAB di posi-":CURSO 

R0,19:PRINT "zionamento nella frase?": 

GOTO750 

740 G0T0651 

750 X$=INKEY$ 

760 IFX$-""THEN750 

770 CURSOR0, 17 :GOSUB890 :G0T0651 

780 CURSOR0, 17 :PRINT "ESATTO22CURSOR 

0518 :CURSOR0,19 :PRINT- "Sembra che tu a 

bbìa capito " : CURSOR0,20 : PRI NT "anche 

questa parte, che non e’ certo" 


785 CURSOR0,21:PRINT "molto semplice22 
Ora andiamo a | uanti22" 

790 X$=INKEY$ 

800 IFX$=""THEN780 

810 CLS :CURSOR0,5:PRINT "UUOI RIUEDERE 
IL PROGRMMA" 

820 CURSORI 0,7 : PRINT "NO":CURS0R8,7 : IN 

PUT A$ :IFA$ = "SI"THEN10 

830 IFA$="NO" THEN 850 

840 GOTO810 

850 GOTO 900 

860 CURSOR0, 1 :FOR I = 1T038:PRINT "#";:N 
EXTI :RETURN 

870 FOR I = 1TO700 :NEXT :RETURN 

880 FOR 1 = 1T038:PRINT ; :NEXT:RETURN 

890 F0RI = 1T087:PRINT" " ; :NEXT:RETURN 
900 CLS :2$ = CHR$C343 : CURS0R3,4 :PRINT " 
FINE LE2I0NE 6" 

910 CURS0R3,7 :PRINT "PER INSERIRE LA L 
E2IONE SEGUENTE" 

920 CURS0R3,9 : PRINT "DIGITARE L’ISTRU2 
IONE 

930 CURS0R3,11:PRINT "LOAD";2$;"LE2I0N 
E 7" ;2$ 

940 CURS0R3,20 :PRINT:END 

950 CURSORCO,RI:PRINT " "; :FORI = 1T035 : 

PRINT " " ; :NEXT :PRINT " " :RETURN 

960 CURSORCO,RI:PRINT " "; :FORI = 1T035 : 

PRINT " " ; :NEXT:PRINT " " :RETURN 

1000 CURSOR0,RI:PRINT " "1TABC363;" 

RETURN 

1500 CURSORCO,RI:PRINT " " ; : FORI = 1T035 
: PRI NT " "; :NEXT:PRINT " " :RETURN 


LE2IONE 7 


10 CLS :2$=CHR$C343 

20 CURS0R3,0:PRINT"LEONI INFORMATICA M 
ILANO" :GOSUB860 

30 CURS0R4,3:PRINT "Istruzione di asse 
9 nazione LET" 

40 CURSOR0,5 :PRINT "L’istruzione LET s 
i usa per assegnare" 

50 CURSOR0,6:PRINT "un calore, NUMERIC 
0 o STRINGA, ad una" 


54 CURSOR0,7 SPRINT "'variabile, senza r 
icorrere aLl’INPUT." 

55 CURSOR0,8 :PRINT "Ecco degli esempi: 

li 

56 CURSOR0, 10 .’PRINT " 10 LET A = 30" 

57 CURSOR0,11 :PRINT " 5 LET FC$=" ;2 

$ ;"PRE220 AL MINUTO" ;2$ 

58 CURSOR0, 12 :PRINT " 90 LET X=X+1" 

60 CURSOR0, 13 :PRINT "• 115 A=C + D1" 

70 CURSOR0, 15 : PRINT "La sintassi dell’ 
istruzione e’ : " 

71 CO=0 :RI = 16:GOSUB950:RI = 17:GOSUBÌ000 
:CURSOR0,18 :PRINT " n. linea LET UARIA 
BILE= espressione"JTABC3635" " 
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I numero dell 


72 CURSOR0j19 :PRINT " 

stringa";TAB[363 ;" " 

73 CURSOR0,20 :PRINT " nota: il LET può 
’ essere omesso";TAB[363;" " 

80 RI=21 :GOSUB960 
110 X$= INKEY$ 

120 IFX$=""THEN110 

130 CLS :CURSOR0,1 :PRINT "IL simbolo = 
assume II s I gn i fIcato" : CURSOR0, 2 :PRI NT 
"dI : SOSTITUITO DO" 

132 CURSOR0,3 : PRI NT "Non confonderlo c 
on UGUALE A2 2" 

140 CURSOR0,5:PRINT "Cosi’ La frase:" 

145 CURSOR0,7 : PRI NT "20 LET X=X + 1 " 

150 CURSOR0,9 : PRINT "sostituisce il uà 
Lore di X con lo stes-" 

160 CURSOR0,10:PRINT "so ualore + 1 Ci 
L risultato di X+l3":CURSOR0,12:PRINT 
"Le frasi seguenti mostrano alcune" 

170 CURSOR0,13 :PRINT "assegnazioni SBA 

GLIATE [sinistra 3 ;":CURSOR0,14:PRINT" 
le stesse CORRETTE [destra!":CURSOR0,1 
7 :PRINT "10 LET 4=E":CURSOR0,18:PRINT 
"25 A$=A$+1 ":CURSOR0,19:PRINT "LET A 

$-123456" 

171 CURSOR0,20:PRI NT "33 LET 1+1=D" 

172 CURSOR20,17:PRINT "10 LET E=4":CUR 

SOR20, 18 :PRINT "25 A$=A$+";Z$;"1" ;Z$ : 

CURSOR20,19:PRINT "LET A$= " 2$ ; " 123456 
" ;Z$ 

173 CURSOR20,20:PRINT "33 LET D=l + 1" 

174 CURS0R5,22:PRINT "errate" ;TAB[253; 
"esatte" 

180 X$=INKEY$ 

190 IFX$=""THEN180 

200 CLS:CURSOR5,0:PRINT "Compito a cas 
a":PRI NT" 

11 

205 CURSOR0,3:PRINT "PRINA di passare 
alLa prossima lezione," 

210 CURSOR0,4:PRINT "scriui e fai gira 
re un programma":PRINT "che calcoli la 
media di battuta" 

220 CURSOR0,6 :PRINT "di un giocatore d 
i basebaLl.":CURSOR0,7:PRINT "Fai 1000 
per i colpi diuiso le battute," 

230 CURSOR0,8 :PRINT "per 'calcolarla." 
240 CURSOR0, 10 :PRINT "Il programma dee 
e richiedere il nome " 

250 CURSOR0,11:PRINT "del giocatore, l 


l numero del co Lp i , " 

260 CURSOR0,12:PRINT "e i 
e battute." 

261 CURSOR0, 14 :PRINT "Il Computer dece 
uis u a l izzar e : " 


262 CURSOR0, 15:PRINT "il nome del gìoc 
atore, con La media" 

263 CURSOR0,16 :PRINT "il numero del co 
lp ì " 

265 CURSOR0,17 :PRI NT "il numero deLle 
battute " 

266 CURSOR0, 19:PRINT "ATTENZIONE, rie 
opia le specifiche" 

267 CURSOR0, 20-’PRINT "di questo compì 
to, prima di " : CURSOR0,21 : PRINT "speg 
nere il computer e " 

268 CURSOR0, 22:PRINT "cominciare a la 


uo r ar e 2 2 " 


270 X$ = INKE Y$ 

273 IFX$ = ""THEN270 

810 CLS :CURS0R5,5 :PRINT "OUOI RIUEDERE 
LA LEZIONE 7 " 

820 CURSORI 5,7 : PRINT "NO" :CURS0R13,7 :1 

NPUT A$ : IFA$ = "SI"THEN10 

830 IFA$="NO" THEN 850 

840 GOTO810 

850 GOTO 900 

860 CURSOR0,1:FOR I = 1T038 : PRI NT "4";:N 
EXT I :RETURN 

870 FOR I-1TO700 :NEXT :RETURN 

880 FOR 1 = 1T038 : PRINT ; :NEXT :RETURN 


890 F0RI-1T087 :PRINT" " ; :NEXT:RETURN 
900 CLS :Z$ = CHR$[343 : CURS0R3,4:PRINT " 
FINE LEZIONE 7" 

910 CURS0R3,7 : PRINT "PER INSERIRE LA L 
EZIONE SEGUENTE" 

920 CURS0R3,9 :PRINT "DIGITARE L’ISTRUZ 

IONE 

930 CURS0R3, 11 :PRINT "LOAD" ;Z$ ; J 'LEZION 
E 8" ;z$ 

940 CURS0R3,20 :PRINT:END 

950 CURSORCO,RI:PRINT " " ; :FORI = 1T035 : 

PRINT " " ; :NEXT :PRINT " " -‘RETURN 

960 CURSORCO,RI:PRINT " "; : FORI = 1T035 : 

PRINT " " ; :NEXT:PRINT " " :RETURN 

1000 CURSOR0,RI:PRINT " " ;TAB[363;" ": 

RETURN 

1500 CURSORCO,RI:PRINT " " ; :FORI = 1T035 
:PRINT " " ; :NEXT :PRINT " " :RETURN 
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Il 30 Dicembre 1984 è terminato STRIKE, il 
concorso lanciato da LIST, che ha ottenuto un 
grosso successo tra i nostri lettori. 

I programmi selezionati sono decine e ciò ha 
posto all'Editore e alla redazione di LIST una 
serie di problemi di carattere operativo. Per 
questa ragione abbiamo deciso di suddividere 
la pubblicazione dei programmi che 
partecipano al concorso nei primi quattro 
numeri della nuova edizione. È una decisione 
che ci consente di sottoporre all'attenzione dei 
nostri lettori non solo i programmi in concorso, 
ma anche i programmi di LIST; in poche parole, 
se avessimo dato spazio ai soli programmi che 
partecipano al concorso non avremmo avuto la 
possibilità di pubblicare null'altro. Avremmo, in 
pratica «costruito» i primi due numeri della 
nuova serie di LIST, con il solo apporto del 
lavoro dei nostri lettori, e non ci è sembrato 
giusto. 

In questo modo l'attenzione degli amici di LIST 
sarà, fino al numero di Aprile, equamente 
suddivisa tra i programmi dei nostri lettori e 
quelli della Rivista. Ciò servirà anche per 
esaminare con più attenta cura, da parte dei 
nostri lettori, i programmi da votare per la 
parte finale del nostro concorso che si 


concluderà, per quel che riguarda 
l'assegnazione dei premi - ed è questa una 
delle novità che vi avevamo promesso - con 
una grande manifestazione a livello nazionale 
alla quale prenderanno parte non solo i 
vincitori e i premiati, ma anche personaggi - 
speriamo - del mondo dello spettacolo, del 
giornalismo, del mondo scientifico e tecnico e, 
naturalmente, tutti gli amici di LIST che 
vorranno intervenire. 

Non sarà questa, come già ha detto il nostro 
Direttore nel Suo editoriale, l'unica novità della 
nuova edizione di LIST. Il nostro mensile, dopo 
un anno di successi come bimestrale, vuole 
dare ai suoi lettori molte altre iniziative, 
supplementi e novità che costituiscono per 
l'Editore e per noi della Redazione di LIST, un 
grosso sforzo ed impegno che non vogliamo 
mancare. Uno sforzo ed un impegno che, ne 
siamo certi avrà il supporto dei nostri lettori 
vecchi e nuovi. 

Ecco, intanto, i primi programmi del concorso 
che vi invitiamo ad esaminare e a votare al più 
presto usando la cedolina che troverete nei 
prossimi numeri di LIST. Buona fortuna! 

La redazione di LIST 
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SWIMMING POOL 

di Francesco Monde/li 



In questo gioco le scommesse accettate dal 
computer non riguardano né cavalli né cani, 
bensì... dei nuotatori!!!! 

All'inizio del gioco avete la somma di L. 
100.000 (indicata però con 100), con la quale 


potete iniziare a scommettere. 

Prima che venga visualizzato il tabulato con il 
totalizzatore, il computer chiederà la quota che 
volete giocare. Il «vincitore» viene a fine gara 
visualizzato sul podio; e voi??? Avete vinto?? 


1 

REM 

ih****#*****#*#*********- 

2 

REM 

* 

* 

3 

REM 

* SWIMMING - POOL 

*• 

4 

REM 

* 

* 

5 

REM 

* ZX - 31 16K 

* 

6 

REM 

* 

* 

7 

REM 

* BY FRRNCO MONDELLI 

* 

8 

REM 

* 

* 

9 

REM 

**»***JMi-************a-*-s- 

10 

REM 



11 

LET 

D = 100 


12 

LET 

1 = 19 


13 

LET 

L = 19 


14- 

LET 

M = 19 


15 

LET 

R = 19 


16 

LET 

0 = 19 


17 

LET 

P = 19 


18 

LET 

0 = 19 


19 

CLS 



20 

PRINT "OUBNTO SCOMMETTI 7" 


21 

INPUT S 


22 

CLS 



23 

LET 

R = INT fRND*33) +1 


24 

LET 

B = INT (RND*33> +1 


25 

LET 

C- = I NT ( RND #33) +1 


26 

LET 

E = INT (RND*33) +1 



27 

28 

29 

30 

31 

32 

33 
34- 

35 

36 

37 

38 

39 
4.0 
4-1 


LET F 

LET G 

LET H 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 

CL5 

FOR U 

PRINT 


INT i RND*33) +1 
INT CRND*33)+1 
INT (RND*33)+1 
SCEGLI IL NUOTATORE" 


RT 3/0; ■' 
RT 6/0; "J 
RT 9/©; "1 
RT 12/0.: " 
RT 15,0;" 
RT 18,0;" 
RT 21,0; 

N 


:0 TO 21 
RT U, 1; 


" ; R;"-1” 

" ; B; *’ -1’* 
",C;"-1" 
"; E;"-1" 
**; F; "-1" 
G;"-i" 
";H;"-l” 



4-2 NEXT *J 
4-3 PRINT RT 0,1. 

U PRIMTfiT O , “"H" ; RT ©+1,4;" 

4-5 PRINT RT I,8;"B";RT 1+1,8;" 

46 PRINT RT L/12;"B”;RT L+1,12 

55 PRINT RT M,16;"0";RT M+1,16 
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65 PRINT RT R , 20 ; "i’* ; RT R + i,S0 

/ ^ 

75 PRXNT «T O , 24- ; ”S" RT 0 + 1,34- 
; "M" 

©5 PRINT RT P,28;"B**;RT P+1,2S 

; 

10© LET Q=G-INT (RND+2) 

101 LET 1 = 1-INT (RND*2) 

102 LET L =L - INT CRND + P.» 

103 LET M=M-INT CRND+2J 
104- LET R =R — INT i RND»2) 

105 LET O =D — INT (RND*2> 

106 LET P=P-INT (RND*2> 

107 IF ©<=© THEN GOTO 200 
103 IF I<=0 THEN GOTO 300 
10© IF L<=© THEN GOTO 4-©0 
11© IF H<=© THEN GOTO 50© 

111 IF R < =0 THEN GOTO 600 

112 IF O<=0 THEN GOTO 70© 

113 IF P<=© THEN GOTO 300 
120 GOTO 4-4- 

200 CLS 

210 IF N = 1 THEN LET D=D+S*R 
220 IF N < >1 THEN LET D=D-S 
250 GOSUB ©50 
250 PRINT RT 8,15;**fi“ 

270 PAUSE 4-0© 

280 IF D=© THEN GOTO 2000 
290 GOTO 300© 

300 CLS 

310 IF N=2 THEN LET 0=D+S*B 
320 IF N<>2 THEN LET D=D-S 
350 GOSUB ©50 
360 PRINT RT 8,15;"e" 

370 PRUSE 4-00 

380 IF 0=0 THEN GOTO 2000 
390 GOTO 3000 
4-00 CLS 

4-1© IF N =3 THEN LET D=D+S*C 
4-2© IF NO 3 THEN LET D=D-S 
4-5© GOSUB ©50 
4-60 PRINT RT Q, 15; "B” 

4-70 PRUSE 4-00 

4-80 IF D=0 THEN GOTO 2000 
4-90 GOTO 3000 
503 CLS 

510 IF N=4 THEN LET D=D+S*E 
520 IF NO 4- THEN LET D=D-S 
55© GOSUB ©5© 

56© PRINT RT 8,15; ” 0 '* 

570 PRUSE 4-©0 

580 IF 0=0 THEN GOTO 2000 

59© GOTO 3000 

S00 CLS 


610 

620 

650 

66 © 

670 

68 © 

690 

70© 

710 

720 

750 

760 

77© 

78© 

790 

800 

810 

820 

850 

86 © 

87© 

880 

89© 

©50 

960 



IF N=S THEN LET D=D+S*F 
IF N o 5 THEN LET D=D-S 
GOSUB 950 
PRINT RT 3,15j”S” 

PRUSE 4-00 

IF 0=0 THEN GOTO 2000 
GOTO 3000 
CLS 

IF N =6 THEN LET 0=D+S*G 
IF N<>6 THEN LET 0=0-S 
GOSUB 950 
PRINT RT 8,15; "B” 

PRUSE 4-00 

IF 0=0 THEN GOTO 2000 
GOTO 3000 
CLS 

IF N=7 THEN LET D=D+S*H 
IF No7 THEN LET 0=0-S 
GOSUB 950 
PRINT RT 8,15;"H” 

PRUSE 4-00 

IF 0=0 THEN GOTO 2000 
GOTO 3000 
FOR 0=15 TO 21 

PRINT RT Q , 5; ”f 
* » 

NEXT Q 

PRINT RT 17,14-; " IMO’* 

PRINT RT 14-, 13; RT 1 

.i" ; RT 12,14-; “Wm’‘i RT 11, 


“iNT RT 10,14-^jL™ , 

If ', RT 8,12; "I 7,1 

; RT 6,15;^ t ^ ,, ;rt 5,14-; 
^iT^ , 14-; "WàM" ; RT 6,14-;-«SÉ 

1020 PLOT 29,36 
1025 PLOT 32,36 

1030 IF 0=0 THEN PRINT RT 20,12; 
"CHE SFORTUNR" 

1035 RETURN 
2000 CLS 

2010 PRINT RT 10,1;"SPIACENTE,HR 
I PERSO TUTTO” 

250© STOP 

3000 IF D> =10 THEN GOTO 3010 
3010 PRINT RT 0,1;"UUOI SCOHMETT 
ERE ANCORR ? {S/N}";RT 2^1;"HAI 

RNCORR " ; D; *’ MILA LIRE” 

3012 PRUSE 4-E4- 

3015 IF INKEY $ = ” S ** THEN GOTO 12 
3020 IF INKEY$="N" THEN CLS 
3022 CLS 

3025 PRINT RT 10,0; "TI RITIRI CO 
N ";D;” MILA LIRE” 

3030 STOP 
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SINT CODER 


di Marco Giusti 

Programma di gestione effetti 
per CBM 64:100% BASIC 

FUNZIONAMENTO 

Il programma permette di suonare sulla 
tastiera premendo i tasti visualizzati nello 
schema sul video. Il tipo di suono può essere 
modificato a piacere mediante i parametri 
caratteristici riportati sulla tabella che appare 
sullo schermo: premere il tasto specificato per 
accedere alla corrispondente routine di 
immissione. 

Per la definizione dei parametri: 

Forma d'onda, Volume, Attack-Decay, Sustain, 
Duty-cycle si presume la lettura del cap. 7 del 
manuale - utente del Commodore 64. 

Inoltre i seguenti parametri permettono di 
ottenere (tra l'altro) EFFETTI SPECIALI: 

1) TENUTA: indica il tempo di durata del 
«sostentamento» della nota: naturalmente ha 
un senso solo se il Sustain è settato, altrimenti 
non si ottiene alcun effetto. 

2) MANTENIMENTO (si può effettuare 
all'interno della routine immissione «tenuta»): 
disabilita il rilascio di 1, 2 o tutte e 3 le voci. Il 
Sustain deve essere settato. 

Es. Mantenimento (voce 1) = 1 significa che 
una volta premuto un tasto la voce 1 prosegue 
indefinitivamente a suonare la nota 
corrispondente al tasto. Per disabilitarlo 
occorre inserire il valore 0 in corrispondenza di 
ciascuna voce. 

3) ECO produce un effetto «eco» che può 
essere controllato nel seguente modo: 

ECO = 1: ad ogni ciclo il volume della nota 


viene diminuito di un'unità; numero max di 
cicli = 1 5 

ECO = 2: 2 unità; numero max di cicli = 7 
ECO = 3: 3 unità; numero max di cicli = 5 
Quindi un eco = 1 si dissolve in un tempo 
maggiore che un eco = 3, inoltre il tempo che 
intercorre tra una ripetizione e l'altra può 
essere aumentato aumentando la «tenuta». 

4) SELEZIONE OTTAVE: la tastiera di cui è 
dotato SINT CODER (schematizzata sul video) 
ha a disposizione 2 ottave complete. Esse si 
selezionano nel seguente modo: 

a) Premere «SPACE» e attivare (mettendo a 1 ) 
la «Selezione Ottave» 

b) Selezionare le ottave desiderate 
(indipendentemente per ogni voce) con i tasti 
indicati. 

N.B. - La velocità di funzionamento varia a 
seconda dei parametri scelti. In particolare la 
velocità diminuisce (leggermente) quando l'eco 
è acceso per tutte e 3 le voci; inoltre una 
definizione trivoce implica una maggiore (di 
poco) lentezza rispetto a una monovoce. 

Infine è possibile registrare su nastro eventuali 
motivi musicali, oppure solo la «Definizione del 
suono». Per far ciò premere e seguire le 
istruzioni impartite. Anche in questo caso, 
durante la registrazione (che avviene in tempo 
reale), la velocità di funzionamento è minore. 

POSSIBILI MIGLIORAMENTI DA APPORTARE 
Inserimento di un comando che permetta di 
mantenere la nota al livello di «sostentamento» 
finché il tasto è premuto (invece di utilizzare la 
tenuta, che è indipendente dal tempo di 
pressione del tasto). 
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READY 


REM ************************ 
REM * * 

REM * * 

REM *******SINT CODER******* 
REM * * *BY MARCOG1USTI ,1984** 
REM * * 

* * 
************************ 


REM 

REM 

REM 


10 REM 

11 REM * «PROGRAMMA DI GESTIONE 

12 REM RIPRODUZIONE VIETATA 

13 REM AUTORE DEL PROGRAMMA: 

















































14 REM MARCO GIUSTI,II ANNO INGEGNERIA ELETTRONICA 

15 REM UNIVERSITÀ' DI PISA 

16 REM POSSESSORE CBM 64 DAL LUGLIO '84 

17 REM ******************************** 

18 REM RES. IN VIA SAVONA SS 56100 PISA 

19 REM TEL.050/551010 

20 REM ******************************** 

25 REM 

30 REM ELENCO ROUTINES 
40 REM TITOLO,INIZIALIZZAZIONE 
50 REM MENU' ,MA IN PROGRAM 
70 REM SELEZ.OPZIONI,OPZIONI 
80 REM GENERAZIONE NOTE,DATI 
90 REM LETTURA-SCRITTURA SU NASTRO 
95 REM TEMPORIZZAZIONE,ISTRUZIONI 
100 REM ****TITOLO**** 

105 P0KE53281 ,0:POKE53280,4 :PRINT“J 
107 Pnpy^zi nrnPttP ; pp tkit »■■■■■■■— 

110 PRINT"3 SINT-CODER SINTESI MUSICALE 

112 FOR1 = 1TO50 s NEXT:NEXT : PRINT"H 

115 PRINTTABC10)"CPY MARCOGIUSTI ,1984 " 

117 PRINTTAB <10)"MM'Fl ■ PER PARTIRE" 

118 GETP$: IFP*=”"ORP$< >THEN118 

120 REM ****INIZIALIZZAZIONE**** 

121 P0KE53281 ,4 :POKE53280,4 :PRINT"L*UN ATTIMO,PREGO " 

125 D IMMH <35,7):DI MML <35,7):D IMO < 36 ) : D IMNT$<200 ) : D IMIN<200 ) ! D IMTM<200 ) 

130 FOR I =0TO35 '• FOR J =0TO7 : READB ! MH < I ,J)=B:NEXT:NEXT 

140 FORK =0TO35:FORL=0TO7:READC:ML <K,L)=C:NEXT:NEXT 

150 S I =54272 :FL = SI :FH = SI + 1 : TL = S I +2 : TH=S I +3 : LI=S I +4 : A =S I +5 : H=S I +6 

155 RZ =SI+23 :LL = SI+21 :LH = SI+22 :L =SI+24 

160 GL=SI+7:GH = SI+8:DL=SI+9!DH=SI + 10:V=SI + 11 :A2=SI + 12 :H2 = SI + 13 
165 HL=SI + 14 :HH=SI + 15 :YL = SI + 16 * YH=SI + 17:Z=SI + 18:A3=SI + 19 sH3=SI+20 

167 FD=17:DC=9:VL=15 :CL=255:SL=1 :F2=17 :F3=17 :CK=0:AT=0: DE=9 :AA=0: DA=9 :T=0 

168 SS =0 :SU=0:SN=0:RS=0:MF =0 :EC=0:CH=0:L2=255s L3=255:Y2 =0 s Y3=0:SD=0 

169 C1=0:C2=0:C3=0:O1=3:O2=4:O3=5:E1S="NO":E2*="N0":E3*="NO M 

170 P0KE53281,0 :POKE53280,4 :PRINT" 

177 GOTO250: REM MENU' 

178 REM 

179 REM 

180 REM * * * *MAIN PROGRAM**** 

182 MI=0 :M2=0:M3 = 0 

184 IFC1=1THENM1=SS*16 

185 IFC2= 1THENM2=SU* 16 

186 IFC3 =1THENM3 =SN*16 

190 POKEA,CK*16+DC:POKETL,CL:POKETH,CH 
195 P0KEA2,AT*16+OE:POKEDL,L2:POKEDH,Y2 
200 P0KEA3 ,AA*16 + DA:POKEYL,L3:POKEYH,Y3 

202 POKELL,QL:POKELH,QH:POKERZ,RS*16+AF+CF +NF:S1=SS*16 :S2=SU*16 :S3=SN*16 
205 GOTO 1700:REM GENERAZIONE NOTE 

207 POKEFL,ML CTS,01+N):POKEFH,MH CTS,01+N):POKEGL,MLCTS,02+N) 

2 10 POKEGH,MH CTS,02+N):POKEHL,ML CTS,03+N):POKEHH,MHCTS,03+N) 

215 P0KEL1,0 : POKEV ,0 : POKEZ ,0 

2 17 POKEL , VL - D + C MFANO240 ) :P0KEH,S1 : P0KEH2 ,S2 : P0KEH3 ,S3 
2 18 POKE LI, FD: POKEV, F2 : POKEZ ,F3: IFEC=0THEN239 

219 IFLC=1THEN3600 

220 IFRC = 1ANDD>VL-ECTHEND=0 :POKEL,MFAND240:G0T0435 

221 IFD>VL-ECTHEND=0:POKEL,MFAND240:GOT0435 
223 IFRC = 1THEN3700 
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£24 FORX=0TOT:GETA*: IFA*="-THENNEXT:POKEH,M1 :P0KEH2,ME :P0KEH3,M3:D = D+EC:60T0232 
££5 POKEH,MI : P0KEH2 ,M2 : P0KEH3 ,M3 *■ D=0 : GOTO 1700 

££6 TN=TI : IFIN=0THENFORX=1 TOT ; NEXT : POKEH, MI s POKEHE,M2 : P0KEH3,M3 : D=D+EC : G0T0232 
£27 IFTI-TN<IN/VETHEN227 

228 POKEH,MI :P0KEH2,M2:P0KEH3,M3:D=0 :G0T03170 

229 TN=TI 

230 FORX=0TOT:GETA*:IFA*=""THENNEXT:POKEH,M1:P0KEH2,M2:P0KEH3,M3:D=D+EC:G0T0E32 

231 POKEH,MI :P0KEH2,M2:POKEH3,M3!D=0: IN=TI-TN:G0T03328 

232 IFE1=1ANOE2=0ANDE3=0THENPOKEW,0:GOTO£17 

233 IFE1 =1AN0E2=1ANDE3=1THENPOKEW,0 :POKEV,0 :POKEZ,0:GOTO217 

234 IFE1= 0AN0E2 =1ANDE3 =0THENPOKEV,0 !G0T0217 
£35 IFE1=0ANDE2=0ANDE3=1THENPOKEZ,0:GOTO217 

236 IFE1 = 1ANDE2=1ANDE3=0THENPOKEW,0:POKEV,0 :G0T0217 

237 IFE1 =1ANDE£=0ANDE3=1THENPOKEW,0 :POKEZ,0:G0T0217 

238 IFE1=0ANDE2=1ANDE3=1THENPOKEV,0 s POKEZ,0:GOTO217 

239 IFLC=1THENGOTO3600 : REM TEMPORIZZAZIONE LETTURA 
£40 IFRC =1THENGOTO3700! REM TEMPORIZZAZIONE SCRITTURA 

241 FORX=0TOT:GETA*:IFAì$= m “THENNEXT:POKEH,M1:P0KEH2,M2:P0KEH3,M3:G0T0435 
£42 POKEH,MI :P0KEH2,M2:P0KEH3,M3: GOTO 1700 

£43 TN=TI : IFIN=0THENFORX=1 TOT : POKEH,M1 : P0KEH2,M2 : P0KEH3 ,M3: G0T03170 
£44 IFTI-TN<IN/VETHEN244 

£45 POKEH,MI :P0KEH2,M£:P0KEH3,M3: GOTO3170 
246 TN=TI 

£47 FORX=0TOT:GETA^:IFA*=""THENMEXT:POKEH,M1:P0KEH2,M2!P0KEH3,M3:G0T0435 
248 POKEH,MI :P0KEH2,M£:P0KEH3,M3: IN=TI-TN:G0T03328 
£49 REM 
250 REM 

£51 REM ****MENU'**** 

252 IFLC=1THENPRINT"Li»************AUTOMATIC SOUND*************":GOTO260 

253 IFRC=1THENPRINT"LH SAVING ":GOTO260 

255 PRINT"Lia DEFINIZIONE DEL SUONO 

260 PRINT ,, Da OPZIONI ■ VOCE 1 VOCE2 V0CE3 ^RESS " 

270 PRINT"9-" 

280 PRINT"[]a F.ONDA ■ " :PRINTTAB < 10 )? FD:PRINTTAB < 17 );F2 

285 PRINTTAB <24);F3:PRINTTAB <34)"QS F1 


290 PR INT n a VOLUME ■-" ,* VL 

295 PR INTTAB <24 ) "□- U F2 


300 PR INT 11 a ATT-DC PR INTTAB < 10 ) "D" ; CK ; DC : PR INTTAB < 17 ) "□" ; AT; DE 

305 PRINTTAB<24>"□“;AA;DA:PRINTTAB<34)"CH F3 

310 PRINT n a SUS-REL " : PR INTTAB < 10 ) "CT ; SS : PR INTTAB < 17 SU 

315 PRINTTAB < £4 ) "□"* SN:PRINTTAB < 34 )" da F4 


320 PRI NT "RISONANZA ■-" ; RS 

325 PR INTTAB <24 ) "□-3 F5 " 


330 PRINT M a FILTRO " : IFAF = 1 THENPR INTTAB < 1 1 ) "OS I “ : GOT0332 

331 PRI NTTAB < 1 1 ) "CJMO" 

332 IFCF=2THENPRINTTAB<18)"OSI":G0T0334 

333 PRINTTAB<18)“OMO" 

334 IFNF =4THENPRINTTAB <25)"DB I":G0T0336 

335 PRINTTAB<25)”CNO“ 

336 PRINTTAB<34)"Da F6 

337 PRim-"a W40D0: ";mf; "cutoff: ";qh;ql 

338 PRINTTAB<34>-oa 

339 PRI NT "a TENUTA M - a >T 

340 IFC1<>0ORC2<>0ORC3<>0THEN346 

345 PR INTTAB <24 )-□-3 F7 ":G0T0351 

346 PRI NT 11 RITENUTA 9 " * PR INTTAB <6 ) “CH" /* T 

347 PR INTTAB < 10) *□-a F7 " : IFC 1 < >0THENPR I NTTAB < 12 ) "CMMM“ 

348 IFC2<>0THENPRINTTAB<19) 
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349 
35 1 

352 

353 

355 

356 

357 

358 

359 

360 
362 
365 
372 
375 
380 
385 
390 
395 
400 
405 
4 10 
4 15 
4 17 
4 18 
4 19 
420 
422 
425 
427 
430 
43 1 

432 

435 

436 

437 

438 

433 
440 
442 
445 
447 
450 
455 
460 
465 
470 
475 
477 
480 
485 
487 
490 
49 1 
432 

493 

494 

495 

496 


1FC3 <>0THENPRINTTflB <25)"CMMM" 

IFFD=650RF2 =650RF 3 =65THEN353 

PR I NT " igPUTY CYCLEB-a F8 " : G0T0356 

PRINT" jJDUTY CYCLE":PRINTTAB<10);CH;CL:PRINTTAB<17)"d“ ;Y2;L2 
PRINTTAB<24)"d" ;Y3;L3:PRINTTAB<34)"dB F8 
IFEC =0THEN359 

P RINT"a ECO=" ;EC; "Il "!PR1NTTAB < 1 1)"□";El$!PRINTTftB<18)"□“;E2$ 
PRINTTflB<25) "tT ; E3Ì! PR INTTflB <34 ) "na +- ”:GOTO360 

PRINT-3 ECO ■-SPENTO-<- 

PRINT"aSEL.OTTAVE" : PR I NTTflB < 10) "□";01? || - " ; 0 1 + 1 

PRINTTflB < 17); 02; "H -"; 02+1 :PRINTTflB <24); 03; "|| - " ; 03+ 1 

PRINTTflB<34)" naS PflCF■ 

PR INT "3-" 


Q 


a 
a a 

w ! 


pr iNT"na 
print " na 

PRiNT-na 
PRINT'Ta 

RRiNT"csa ah- L - 1 

pr i nt" tua ai ■ a 
print "na ai a s a 
pRiNT n oa ai z i x i 
pr i nt " na a 1 --' 


a 

a 


aa 


R 


H- 


a 

a 


-nH MODE: 

i a a i a a a 

i B5aa6aa7a usa-" 

i t i y i u laa premi 

± - L ——h ia a ? a 

i a a a a a a ina per 

i a g a a h a a j a iaaisTRuz ioni •• 


a o 

C | V | B | N | M | 


□" 


IFLC=1THENM4$ ="AUTOMATIC" 

IFRC=lTHENMUtt="RECORD ING" 

IFLC=0flNDRC=0THEM4UJS= "a S^LAY" 

PRINT"a 
PR INT"| 

IFLC <>1THEN435 
6ETA$:IFA$=""THEN427 
IFA$ =”P"THEN3170 
IFA* ="E"THEN3190 
GOTO440 

GETA$:IFA3>="”THEN435 
IFSL = 0THEN1700 
REM 
REM 
REM 

REM ****SELEZ IONE OPZIONI**** 

IFflSC <A$) = 133THEN550: REM FORMA D'ONDA 
IFASC < fl^) = 137THEN650: REM VOLUME 
IFASC <A$)=137THENGOTO620: REM VOLUME 
IFASC<A$)=134THEN690: REM ATT-DC 
IFASC<A$)=138THEN870: REM SUS-REL 
IFASC<AS)=1 35THEN990 : REM RISONANZA 
IFASC<AS)=139THEN1040:REM FILTRO 
IFASC<fl^) = l36THEN1130 : REM TENUTA 
IFASC<A$)=140THEN1190:REM DUTY-CICLE 
IFASC<A$)=95THEN1365:REM ECO 
IFASC<AS)=32THENG0T01500:REM SELEZIONE 
IFASC<A*)=63THEN4000:REM ISTRUZIONI 
IFSD <>1THEN520 
IFASC<A$)<>43THEN495 
IFO1=6THEN494 

01=01+1:CS=RIGHT*<STR*<01) , 1 ):D$=RIGHT$<STR*<O1+1) , 1 ) 

POKE1555,ASC <C$):POKE1559,ASC<D30:GOT0435 

POKE1555,48 :POKE1559,49 :O1=0 :G0T0435 

IFASC<A*)< >45THEN500 

IFO1=0THEN499 


d“ s POKE2023,32 + 128 
I" MLI* 


OTTAVE 
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497 0 1=01-1 :C*=RIGHT*<STR*<;01 > , 1 ) ! D$=R I6HT$(STR$(0 1 + 1 ) , 1 ) 

498 POKE 1555 ,ASC <C*) : POKE 1559 , ASC <D*) : G0T0435 

499 POKE1555,54 :POKE1559,55:01=6:G0T0435 

500 IFASC<ASO<>42THEN505 
50 1 IF02 =6THEN504 

502 02=02+1:C*=RIGHT*<STR*<02),1):D$=RIGHT$<STR*<02+1>,1) 

503 POKE1562,ASC<C$):POKE1566,ASC CD*):GOT0435 

504 POKE1562,48 :POKE1566,49:02=0 :GOT0435 

505 IFASC<ASO <>94THEN510 

506 IF02 = 0THEN509 

507 02=02-1:C$=RIGHT$<STR$<02),1>:D*=RIGHT*<STR$<02+1) , 1 ) 

508 POKE1562,ASC<C$):POKE1566,ASC<D*):GOT0435 

509 POKE1562,54 :POKE1566,55 : 02 =6 :G0T0435 

510 IFASC<AS)<>59THEN515 

511 1F03=6THEN514 

512 03=03+1:CS> = RIGHT$<STR*(03),1):D$=RIGHTS<STR*<03+1),1) 

513 POKE1569,ASC<CSO :POKE1573,ASC(DS):G0T0435 
5 14 POKE1569,48 :POKE1573,49 : 03=0 :G0T0435 

515 IFASC<A*)<>61THEN520 

516 IFQ3=0THEN519 

517 03=03-1:C$=RIGHT*(STR*<03),1):D*=RIGHT*<STR$<03+1),1) 

518 POKE1569,ASC<C$):POKE1573,ASC<OS):G0T0435 
5 19 POKE1569,54 :POKE1573,55:03 =6:G0T0435 

520 IFASC <ASO =20THENPOKE5328 1 .6 : POKE53280.14 * PR INT'TX'l" : FNTI 

521 IFASC <ASO = 147THENIS=0: GOTO 167 

522 IFASC <A*)=35THENIS=0:GOTO3000 

525 IFASC<ASO = 13THENBD=1 : IS = 0:GOTO550: REM DEFINIZ.COMPLETA 

526 IFIS=1THENIS=0:GOTO4080 

527 IFLC =1THEN427 
530 IFSL =0THEN435 

546 SL = 0:GOTO 180 

547 REM 

548 REM 

550 REM ****OPZIONI**** 

552 REM 1-FORMA D’ONDA 

555 PRINTTABC12)”JiFORMA D'ONDA 

560 PR1NT"-VOCE 1-- 

562 PR1NT"TRIANGLE<17)/SAWTOOTH(33)" 

565 PRINT"PULSE <65 )/N0ISE<129) "?FD 

568 INPUT" □“;FD 

570 IFFD<>0ANDFD<>65ANDFD< >17ANDFD<>33ANDFD<>129THEN555 

590 PRINT"-VOCE 2-" 

592 PR INT"TR I ANGLE <17 )/SALIT00TH <33 ) " 

595 PRINT"PULSE <65)/NQISE(129) ";F2 

598 ir^UT" □" ;F2 

600 IFF2<>0ANDF2 <>65AhOF2< >17ANDF2< >33ANDF2< >129THEN602 

601 GOTO620 

602 PRINT"OXn" JGOTO590 

620 PRINT"-VOCE 3-" 

622 PRINT"TRIANGLE<17)/SAUTOOTH<33)" 

625 PRINT"PULSE <65)/N0ISE <129) ";F3 

628 INPUT" D";F3 

630 IFF3<>0ANDF3<>65ANDF3< >17ANDF3< >33ANDF3< >129THEN632 

631 GOTO640 

632 PRINT" rrm " : GOTO620 
640 IFBD=1THEN650 

645 GN=0:SL=1 :GOTO250 

646 REM 
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w\w\\\v: 

























647 

648 
643 
650 
655 

657 

658 
660 
680 

685 

686 

687 

688 
639 
630 
695 
700 
710 
780 
785 
730 
735 
740 
750 
760 
765 
770 
780 
785 
790 
800 
810 
815 
880 
830 
835 
840 
850 
860 

865 

866 

867 

868 

869 

870 
875 
880 
890 
895 
900 
910 
315 
980 
930 
935 
340 
950 
960 


REM 

REM 

REM 

REM 8-VOLUME 
PR INTTAB < 10 ) “J»)OLUME 
PRINT"0=MIN:15=MRX ";VL 
INPUT" □" ;vl 

IF(VL < 0ORVL >150RINT < VL)-VL <>0)THEN655 
1FBD=1THEN690 
GN=0:SL=0:GOTO850 


REM 

REM 

REM 

REM 

REM 3-ATTfìCK-DECAY 

PR INTTAB < 10 ) " Lta=lTT6CK -DECRY 

PRINTTRB < 14 ) "VOCE 1" 

PR1NT"ATTACK (0=DURO * 15=DEB0LE) "JCK 
INPUT" □“;CK 

IF <CK < 0ORCK >150RINT< CK)-CK< >0)THEN695 
PRINT"DECAY <0=DURO! 15=DEB0LE) ";DC 
INPUT- □" ;DC 

IF <DC<0ORDC >150RINT<DC)-DC<>0)THEN730 
PRINTTAB<14)"VOCE 8" 

PRINT"ATTACK<0=DURO:15=DEB0LE) ";AT 

INPUT” □" ;at 

IF <AT<0ORAT>150RINT( AT )-AT<>0)THENPRINT"CU" 

PRINT -DECAY< 0 =DURO: 15 =DEBOLE) "; DE 

INPUT" □" ) DE 

1F < DE <©ORDE >150RINT < DE)-DE < >0)THENPRINT■ CU" 

PRINTTAB<14)"VOCE 3“ 

PR INT " ATTACK < 0=DURO : 15 = DEBOLE ) " ; AA 

INPUT" CTJRR 

IF <AA<0ORAA>15ORINT<AA)-AA<>0 ) THENPR I NT " CU" 
PR INT "DECAY<0=DURO : 15=DEB0LE ) " ; DA 

INPUT" d-;da 

IF <DA<0ORDA>15OR INTCDA)-DA< >0 )THENPR INT "CU" 
IFBD =1THEN870 


N 


GOTO760 


GOTO780 


GOTO810 


GOTO830 






A 

</1 

| 



GN=0s SL=1 :GOTO850 


REM 

REM 

REM 

REM 

REM 

REM 4-SUSTAIN-RELEASE 
PRINTTABC10)"ÌJ3SUSTA IN-RELEASE 
PRINT"SUSTAIN<0=MUTO s 15=F0RTE)" 

PRINT"VOCE 1 ";SS 
INPUT" □" * SS 

IF < SS < 0ORSS >1SOR INT < SS)-SS <>0)THEN875 
PRINT"VOCE 8 "; SU 
INPUT" □" ;su 

IF < SU <0ORSU> 1 SOR INT C SU)-SU < >0)THENPRINT" CU" :G0T09 1 0 
PRINT"VOCE 3 ";SN 
INPUT" CTJSN 

IF <SN< 0ORSN>150RI NT <SN)-SN<>0)THENPRINT“CU" :GOTO930 
IFBD=1THEN990 


GN=0:SL=1 :GOTO850 
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970 REM 
975 REM 
980 REM 
985 REM 

990 REM 5-RISONANZA 

995 PRINTTAB(10)"JflR ISONAN7 A 

997 PRINT"0=MIN!15=MAX ";RS 

1000 INPUT" ;RS: IF <RS<0ORRS >150RINT(RS >-RS< >0)THEN995 

1020 IFBD=1THEN1040 
1030 GN=0 s SL=1s GOTO250 

1035 REM 

1036 REM 

1037 REM 

1038 REM 

1039 REM 

1040 REM 6-FILTRO 

1045 PRINTTABC5) ILTRO DI FREQUENZA 

1050 PR I NT "flPUT OFF«:LOUI-BYTES<0-7:> m ; QL 
1052 INPUT" D"JQL 

1055 I F ( QL < 0ORQL >70R I NT ( QL ) -QL< >0>THEN1045 
1065 PRINT" HIGH-BYTES (0-255) “ ; QH 

1067 INPUT" □" ; QH 

1070 I F ( QH < 0ORQH >2550RINT ( QH )-QH <>0)THENPRINT"CO":GOTO1065 

1076 PRINT” a^CCENSIONE FILTRO" 

1077 PR I NT " VOCE 1(0=SPENTO/1=ACCESO> " ,* AF 

1078 INPUT" □";AF5 IFAF< >0ANDAF < > 1 THENPR I NT "CU" ! GOTO 1077 

1079 PRINT"VOCE 2(0=SPENTO/1=ACCESO> ";ZF 

1080 INPUT" □ ,, ;ZF: IFZF< >0ANDZF< >1 THENPR INT"CET : GOTO 1079 

1081 PRINT"VOCE 3<0 = SPENTO/1=ACCESO) ■ ; YF 

1082 INPUT" □" ; YF: IFYF< >0ANDYF< > 1 THENPR I NT "□a" *■ GOTO 1081 

1083 IFAF=0ANDZF=0ANDYF=0THEN1110 

1085 PRINT"dMODO : PASSA-ALTO ( 64 ) PASSA-BASSO(16?, 

1090 PRINT" nSP ASSA-BANDA( 32 ) ■ " ; MF 
1092 INPUT" □" ;MF 

1095 IF < MF < 0ORMF>2550RINT ( MF)-MF < >0 )THENPRINT“ JXE": GOTO 1085 
1105 IFMF=0THENAF»0!CF»0JNF=0 

1107 1FZF=1THENCF =2 

1108 IFYF ** 1THENNF *4 

1109 IFZF =0THENCF =0 

1110 IFYF=0THENNF=0 
1115 1FBD=1THEN1130 
1120 GN = 0!SL=1 :GOTO250 
1 125 REM 

1126 REM 
1 127 REM 
1128 REM 
1 129 REM 

1130 REM 8-TENUTA 

1135 PR INTTAB < 10 VUJTENUTA 

1137 PRINT"<DURATA DEL VOLUME DI SUSTAIN>" 

1140 PRINT“200=CIRCA 1 SECONDOS" 

1150 PRINT" ";T* IF(T<0ORINT<T)-T< >0)ANDT< >9.9THEN1135 
1155 INPUT"n n ;T: IF <T<0ORINT<T)-T<>0)THEN1135 
1160 PRINT"dMMANTENIMENTO" 

1162 PR INT"g|/ IL SUSTA IN DEVE ESSERE SETTATO/" 

1165 PR INT "Si/OCE 1(1 =ATTI V . ! 0=SPENTO ) ";C1 

1166 INPUT" □" JCl! IFC1<>1ANDÒ 1< >0THENPRI NT: GOTO 1165 

1167 PRINT"VOCE 2(1=ATTIV.s 0=SPENTO > ";C2 
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1168 INPUT" □“ J C2 ‘ IFC2< > 1ANDC2< >0THENPR INT"C3" : GOTO 1 167 

1169 PRINT-VOCE 3<1=ATTIV.:0=SPENTO) ";C3 

1170 INPUT- □";C3! IFC3<>1ANDC3< >0THENPRINT"D"! GOTO 1169 

1185 IFBD=1THEN1195 

1186 SL=1s GOTO250 

1187 REM 

1188 REM 

1189 REM 

1190 REM 8-DUTY-CYCLE 

1195 PRINTTAB<10)* J*3UTY-CYLE 
1200 PRTNT» 

1205 PRINT-SOLO PER F.0NDA=65<PULSE> |" 

1210 PRINT"-- 

1215 IFFD< >65THEN1267 
1220 PRINTTAB<14)"VOCE 1" 

1230 PRINT"LOW-BYTES<0-255) “;CL 

1235 INPUT" □" ; CL 

1240 IF < CL < 0ORCL >2550RI NT (CL)-CL <>0)THEN1190 

1255 PRINT"HIGH-BYTES <0-15) ■;CH 

1257 INPUT" □" * CH 

1260 IF < CH<0ORCH > 150R INT <CH ) -CH< >0 )THENPR INT"CD" * GOTO 1255 
1267 IFF2 < >65THEN1317 
1270 PRINTTAB <14)“VOCE 2" 

1280 PRINT"LOW-BYTES<0-255) "?L2 

1290 IF <L2<0ORL2 >2550R INT<L£ ) -L2< >0 )THENPR INT"CD" '• GOTO 1280 
1300 PRINT"HIGH-BYTES <0-15) ";Y£ 

1305 INPUT" □";Y2 

1310 IF(Y2 <0ORY2>150RINT < Y2)-Y2 < >0)THENPRINT"CD"'GOTO 1300 
1317 IFF3<>65THEN1355 
1320 PRINTTAB<14)"VOCE 3" 

1325 PRINT"LOW-BYTES<0-255) ";L3 

1327 INPUT" □" ?L3 

1330 IF <L3<0ORL3 >2550RINT <L3)-L3<>0)THENPRINT"CD" 5GOTO1330 
1340 PRINT"HIGH-BYTES <0-15) - ; Y3 

1342 INPUT" □" * Y3 

1345 IF <Y3<0ORY3 >150RINT<Y3)-Y3<>0)THENPRINT■m"iGOTO 1350 
1355 IFBD=1THEN1390 

1360 GN=0:SL=1s GOTO250 

1361 REM 

1362 REM 

1363 REM 

1364 REM 

1365 REM 9-ECO 

1367 ElsM"NO" :E2S="NO" :E3*='N0" 

1370 PRINT-USECO 

1371 PRINT"0=SPENTO:1=RILASCIO LENTO" 

1372 PRINT" 3=RILASCIO VELOCE" 

1373 PR1NT"**)N.B.L'ECO E' INFLUENZATO DALLA TENUTA' 

1374 PRINT" ";EC 

1375 INPUT"CJ";EC:IFEC< >0ANDEC< >1ANDEC< >3ANDEC< >2THENPRINT"CD"* GOTO 1374 

1376 IFEC =0THENE1=0:E2=0:E3=0:GOTO1387 

1377 PRINT"VOCE 1<1=ACCESO: 0 = SPENTO) ";E1 

1378 INPUT" , D-lEl : IFE1 = 1THENE1*="SI■ 

1379 IFE1<>0ANDE1<>1THENPRINT"CD"* GOTO 1377 

1380 PRINT"VOCE 2<0=ACCESO*0=SPENTO) "?E£ 

1381 INPUT" □ M ;E2!IFE£=1THENE£*="SI" 

1382 IFE2< >0ANDE2<>1ANDE2<>9.9THENPRINT: GOTO 1382 

1383 PRINT"VOCE 3<1=ACCESO: 0=SPENTO) ";E3 
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1384 

1385 

1387 

1388 

1389 

1390 

1495 

1496 

1498 

1499 

1500 
1510 
1520 
1530 
1540 
1545 
1550 
1560 
1565 
1570 
1580 
1585 
1590 
1600 
1605 
1610 
1620 
1625 
1630 
1640 
1650 
1655 
1660 
1700 
1705 
1710 
1715 
1720 
1725 
1730 
1735 
1740 
1745 
1750 
1755 
1760 
1765 
1770 
1775 
1780 
1785 
1790 
1795 
1800 
1805 
1810 
1815 
1820 


INPUT” ;E3: IFE3*1THENE3**"SI" 

IFE3<>0ANDE3< >1ANDE3<>9.9THENPRINT" □" : GOTO 1384 

IFE1=0ANDE2=0ANOE3=0THENEC=0 

IFBD*1THEN1390 

GN=0:SL=1 :GOTO250 

REM * * *ROUTINE CANCELLATA**** 

REM ************************* 

REM ************************* 

REM ************************* 

REM ************************* 


REM 10-SELEZIONE OTTAVE 
PRINT-ajBELEZIONE OTTAVE 

IFSD =1THENPR INTTAB < 29 ) "HM BATT IVATA " : GOTO 1540 

PRINTTAB<29)“CEPISATTIVATA* 

PRINT-QUESTA OPZIONE TI PERMETTE 
PRINT"DI SELEZIONARE LE OTTAVE 
PRINT"DIRETTAMENTE DA TASTIERA" 

PRINT"CON I SEGUENTI COMANDI:" 

PRINT" r-! * 

PRINT*nij| + ■ INCREMENTA DI UN OTTAVA LA VOCE 1 |" 

PRINT"C3ia - ■ DECREMENTA DI UN OTTAVA LA VOCE 1 |" 

PRINT-DK-1 * 

PRINT"DI a * ■ INCREMENTA DI UN OTTAVA LA VOCE 2 |" 

PRINT-Dia t m DECREMENTA DI UN OTTAVA LA VOCE 2 |" 

PR I NT * □ K-1 * 

PR I NT "Dia /* S INCREMENTA DI UN OTTAVA LA VOCE 3 |" 

PRINT n nia = B DECREMENTA DI UN OTTAVA LA VOCE 3 |" 

PR I NT "□ L -' " 


ATTIVATA" 

DISATTIVATA" 


PRI ITT "PREMI 1 PER SELEZIONE 
PRINT" 0 PER SELEZIONE 

PRINT" ";SD 

INPUT"CJ";SD: IFSD< >0ANOSD < > 1 THENPR I NT 

BD=0:GN=0 s GOTO250 

REM ****GENERAZIONE NOTE**** 

IFA$="Q"THENTS=0:N=0:GOTO207 
IFA*="2"THENTS*1:N=0 
IFA$ = "LI"THENTS =2 : N=0 
IFAT="3"THENTS = 3 :N=0 
'THENTS =4 :N=0 


N=0 

N=0 


IFAS="E 
IFAT= "R "THENTS =5 : N=0 
IFA$= "5 "THENTS =6 : N=0 
IFA$=“T"THENTS=7 
IFA$= "6"THENTS=8 
IF AT="Y"THENTS =9 : 
IFA$="7"THENTS=10 
IFft$="U"THENTS =11 
IFA*="Z"THENTS*12 
IFA$="S“THENTS=13 
IFA*="X"THENTS*14 
IF A*="D"THENTS =15 
IFA$="C"THENTS =16 
IFA* ="V"THENTS*17 
IFA*="G"THENTS*18 
IFA*="B"THENTS*19 
IFA#="H"THENTS=20 
IFA*="N"THENTS=21 
IFA5*= " J "THENTS =22 
IFA$="M"THENTS=23 


iGOTO207 
: GOTO207 
ì GOTO207 
ìGOTO207 
' GOTO207 
GOTO207 
’ GOTO207 
GOTO207 


N=0!GOTO207 


N=0 

GOTO207 

N=0 

GOTO207 

N= 1 

GOTO207 

N= 1 

GOTO207 

N* 1 

GOTO207 

N= 1 

GOTO207 

N= 1 

GOTO207 

N=1 

GOTO207 

N= 1 

GOTO207 

N= 1 

GOTO207 

N* 1 

GOTO207 

N= 1 

GOTO207 

N= 1 

GOTO207 

N= 1 

GOTO207 
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1825 
1840 
1850 
1880 
1830 
1980 
2000 
20 10 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2 100 
2 110 
2 120 
2 130 
2140 
2 150 
2160 
2 170 
2 180 
2200 
22 10 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2440 
3000 
30 10 
3015 
3020 
3030 
3035 
3040 
3045 
3050 
3052 
3055 
3060 
3065 
3070 


I FLC =1THEN3170 

IFRC=1ANDAS="THEN3315 

GOTO440 

REM 

REM 

REM ******DATI******** 

DATA 1,2,4,8,17,34, 69,139,1,2,4,9,18,36,73,147 
DATA 1,2,4,9,19,39,78,156,1,2,5,10,20,41,82,165 
DATA 1 ,2 ,5,10 ,21 ,43 ,87,175,1,2,5,11 ,23 ,46,92,185 
DATA 1,3,6,12,24,49,98,196,1,3,6,13,26,52,104,208 
DATA 1,3,6,13,27,55,110,221,1,3,7,14,29,58,117,234 
DATA 1,3,7,15,31,62,124,248,2,4,8,16,32,65,131,0 
DATA 0,2,4,8,17,34,69,139,0,2,4,9,18,36,73,147 
DATA 0,2,4,9,19,39,78,156,0,2,5,10,20,41,82,165 
DATA 0 ,2,5,10 ,21 ,43 ,87,175,0 ,2,5,11 ,23,46,92,185 
DATA 0,3,6,12,24,49,98,196,0,3,6,13,26,52,104,208 
DATA 0,3,6,13,27,55,110,221,0,3,7,14,29,58,117,234 
DATA 0,3,7,15,31,62,124,248,0,4,8,16,32,65,131,0 
DATA 0,0,4,8,17,34,69,139,0,0,4,9,18,36,73,147 
DATA 0,0,4,9,19,39,78,156,0,0,5,10,20,41,82,165 
DATA 0,0,5,10,21,43,87,175,0,0,5,11,23,46,92,185 
DATA 0,0,6,12,24,49,98,196,0,0,6,13,26,52,104,208 
DATA 3,0,6,13,27,55,110,221,0,9,7,44,29,58,117,234 
DATA 0,0,7,15,31,62,124,248,0,0,8,16,32,65,131,0 
REM 

DATA 22,45,90,180,103,207,157,59,39,78,156,56,112,225,193,130 

DATA 57,113,226,196,137,18,36,72,75,150,45,89,178,101,201,147 

DATA 95,190,123,247,237,219,182,107,116,231 ,207,158,59,1 18,237,218 

DATA 138,20,39,78,157,58,115,231,161,66,133,10,20,39,78,156 

DATA 186,116,232,208,160,65,130,4,212,169,81,162,69,138,20,40 

DATA 240,224,193,129,3,5,10,20,14,27,55,109,219,181,106,0 

DATA 0,45,90,180,103,207,157,59,0,78,156,56,112,225,193,130 

DATA 0,1 13,226,196,137,18,36,72,0,150,45,89,178,101,201,147 

DATA 0,190,123,247,237,219,182,107,0,231,207,158,59,118,237 ,218 

DATA 0,20,39,78,157,58,115,231,0,66,133,10,20,39,78,156 

DATA 0,116,232,208,160,65,130,4,0,169,81,162,69,138,20,40 

DATA 0,224,193,129,3,5,10,20,0,27,55,109,219,181,106,0 

DATA 0,0,90,180,103,207,157,59,0,0,156,56,1 12,225,193,130 

DATA 0,0,226,196,137,18,36,72,0,0,45,89,178,101 ,201,147 

DATA 0,0,123,247,237,219,182,107,0,0,207,158,59,118,237,218 

DATA 0,0,39 ,78,157,58,115,231 ,0 ,0,133,10 ,20,39,78,156 

DATA 0,0,232,208,160,65,130,4,0,0,81,162,69,138,20,40 

DATA 0,0,193,129,3,5,10,20,0,0,55,109,219,181,106,0 

DATA 0,0,5,10,21,43,87,175,0,0,5,11,23,46,92,185 

REM ******LETTURA-SCRITTURA******* ****** SU NASTRO 

PRINT'ija SI NT GODER--SINTESI MUSICALE 

PRINT"JE* ******LETTURA-SCRITTURA SU NASTRO******" 

PR INT"^REMI« R PER REGISTRARE SU NASTRO" 

PRINT" L PER CARICARE DA NASTRO" 

PRINT" SPACE PER RILEGGERE UN FILE" 

GETF3»: IFF$=" "THEN3040 

IFF$="R"THEN3200: REM REGISTRAZIONE 

IFF$="L"THEN3060: REM CARICAMENTO 

IFF$=" "ANDNT$<0>< > " “THEN3 149 : REM RILETTURA 

GOTO3040 

REM *****CARICAMENTO******* 

PRINT" 

PRINT" LETTURA DA NASTRO" 


******* 
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3075 PRINT"INSERISCI IL NASTRO" 

3095 PRINT:PRINT:PRINTTAB( 9 ) "RETURN PER INIZIARE" 

3097 PRINTTAB(9)"«HOME PER USCIRE 

3098 GETG*:IFG*=""THEN3098 

3099 IFASC<G$) = 13THENPR INTCHRifK 142 > : GOTO250 
3 1 00 IFASC < G$) = 13THENVE =1 :G0T031 10 

3105 GOTO3033 

3 110 PR I NT " jafflCOD I CE DI IDENTIFICAZIONE DEL FILE 
3 112 INPUT"NOME FILE"* M$ 

3 113 PR INT "«SPREMI fl E ■ PER USCIRE" 

3114 PRINT” 3 P ■ PER CARICARE IL FILE" 

3115 GETC$: IFC*= " "THEN3115 

3116 IFC^="E"THENLC=0:GOTQ250 
3 117 IFC-$ = "P "THEN3 119 

3118 G0T03115 

3 119 PR INTspR I NT " 3*» ************CARIC AMENTO ****** *********** 

3120 OPEN1,1,0,M$+" DATI":PRINT 
3 122 FORI=0TO36:INPUT#1,D<I):NEXT 

3123 CLOSE1 

3124 IFRIGHTS<M$,1)=“0"THEN 3135 

3125 0PEN2,1,0,M^+" NOTE" :KK = -1 

3126 KK =KK + 1 : INPUT#2 ,NT*<KK ) : IFNT3?<KK ) < > "/“THEN3126 

3127 CL0SE2 

3128 0PEN3,1/0, M^+" BREAKS" 

3 129 FORI=0TOKK-1 : INPUT#3,IN<I):NEXT 

3130 CL0SE3 

3131 OPEN4,1 ,0 ,M$?+" TIME" 

3132 FORI=0TOKK-1sINPUT#4,TM<I):NEXT 

3133 CL0SE4 

3135 FD=D<0):F2=D<1)iF3=D<2):VL=D<3):CK=D<4):DC=D<5>:AT=D<6>:DE=D<7):AA=D<8) 
3 136 DA«D(9 ): SS=D<10): SU = D< 1 1 )iSN*D< 12 ) l RS »D < 13 ) : QL =*D < 14 ) « QH =D < 15 ) : AF =D < 16 ) 

3137 CF=D<17):NF=D<18):MF=D<19):CL=D<20):CH=D<21):L2=D<22):Y2=D<23):L3=D<24) 

3138 Y3=D<25) !EC=D<26) :E1=DC27) SE2=D<28) SE3=D<29) *• T=D<30) 

3139 01=D(31):02=D<32):03=D<33):C1=D<34):C2=D<35):C3=D<36) 

3140 E1*="NO":E2*="NO■:E3* ="NO": IFE1 = 1THENE 1$=“SI" 

3141 IFE2=1THENE2$="SI" 

3142 IFE3=1THENE3^="SI" 

( 3143 PRINT"a*********CARICAMENTO EFFETTUATO*********" 

3 144 IFRIGHTS<M*,1)< >"0"THEN3149 
3145 PRINT!PRINT"PREMI «RETURN" 

3146 GETH*:IFH*=""THEN3146 

3147 IFASC <HS) = 13THENLC=0:GOTO250 

3148 G0T03146 

3149 PRINT:PRINT"Ha^ELOCITA' DI ESECUZIONE":PRINT" 1==>TEMP0 REALE" 

3150 PRINT" N==>N VOLTE + VELOCE":PRINT"1/N==>N VOLTE + LENTO" 

3151 PRINT" VE:INPUT”n a ;VE 

3152 PRINT"«COMANDI DEL MODO «AUTOMATIC»" 

3153 PRINT"Ha P ■ PER ASCOLTARE IL MOTIVO" 

3155 PRINT"« E ■ PER USCIRE" 

3156 PRINT:PRINT“PREMI «RETURN» PER ACCEDERE“ 

3157 PRINT" AL MODO «AUTOMATIC" 

3161 PRINT" «HOME ■ PER USCIRE" 

3162 GETH*:IFH*=""THEN3162 
3163 IFASC(H$)=19THENLC=0:GOTO250 
3164 IFASC<H^)=13THEN3168 
3165 G0T03162 

3 168 KK = -1 :LC =1 :SL=1 :TP = TI :GOTO250 
3169 REM ****SUONO AUTOMATICO**** 
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3170 KK = KK + 1 : IFNTSCKK) = "/"THEN3190 
3172 AS=NTS<KK>:IN=IN<KK> 

3175 IFSL=1THENSL=0:GOTO 180 
3180 GOTO 1700 

3190 PRINT” iJPREMI 3SPACE ■ PER RIASCOLTARE IL MOTIVO " 

3192 PRINT" jJPETURNW PER USCIRE" 

3193 GETGS: IFGS=" "THEN3 193 

3194 IFASC <GS) = 13THENLC=0!GOTO250 

3195 IFG$= M "THEN3149 

3196 G0T03193 

3197 REM 

3198 REM 

3199 REM 

3200 REM *****REGISTRAZ IONE***** 

3205 PRINT"U"; SPRINTTAB (4 > “SCRITTURA SU NASTRO" 

3210 PRINT"INSERISCI IL NASTRO" 

3243 PRINTSPRINT::PRINTTABC9VJ^ETURN PER CONTINUARE" 

3244 PRINTTAB<9>"«HOME PER USCIRE 

3245 GETIS:IFIS=""THEN3245 

3247 IFASC<I*) = 13THENVR=1 :G0T03255 

3248 IFASC <IS> = 19THEN250 
3250 G0T03245 

3255 PRINT" SUCOD ICE DI IDENTIFICAZIOhE DEL FILE 

3257 PRINT"B'NOME * + ' 0 ' =>REGISTRA SOLO LA " 

3258 PRINT “ DEFINIZIONE DI SUONO" 

3260 PRINT:PRINT H SMr40N PUOI REGISTRARE" 

3262 PRINT"- UN MOTIVO CON PIU* DI 200 NOTE" 

3264 INPUT *‘ m~m MO ME FILE"; MS 

3270 IFRIGHTS(M$,1)<>"0"THEN3277 

3271 PR INT ! PRINT ! PR INT "LMHHBBBSPREMI a^ETURNH PER REGISTRARE" 

3272 PRINT" flHOME ■ PER USCIRE" 

3273 GETUS:IFUS=»"THEN3273 

3274 IFASC <US) = 19THENRC = 0:GOTO250 

3275 IFASC<US)=13THEN3330 

3276 G0T03273 

3277 PRI NT "U3F1TTEN2 IONE !!!" SPRINT "PER INDICARE LA FINE DEL MOTIVO" 

3278 PRINT"BATTERE a / ■" 

3288 PRINT"MDTREMI flPETURNB PER REGISTRARE" 

3290 PRINT" IL MOTIVO":PRINTsPRINT“ «HOME «PER USCIRE" 

3295 GETJS:IFJS=""THEN3295 

3300 IFASC <JS) = 19THENRC=0 s GOTO250 

3302 IFASC < JS) = 13THENRC=1:TP = TI :KK = -1:GOTO250 

3305 G0T03235 

3310 REM ****REGISTRAZIONE MOTIVO**** 

3315 KK =KK+1 s IFKK>199THEN3330 
3317 NTS(KK>=AS 
3320 IFAS="/"THEN3330 
3325 IFEC< >0THEN229 

3327 G0T0246 

3328 IN<KK)=IN:IN=0SGOTO436 

3330 PRINT"iJS*************REGISTRAZIONE**************" 

3340 PRINT"PREMI SEI PER USCIRE" 

3350 PRINT" » P ■ PER INCIDERE SU NASTROSBfl" 

3355 GETCS:IFCS=""THEN3355 
3360 IFCS="E"THENRC=0 s GOTO250 
3370 IFCS="P"THEN3400 

3400 D <0)=FDSOCI)=F2:DC25=F3:D<3)=VL:D <4 >=CK:DC5)=DC:D<6)=AT:D <7)=DE:D <8)=AA 
34 10 D <9 ? =DA : D < 10 ) =SS : D < 1 1 ) =SU : D ( 12 ) =SN: D ( 13 > =RS : D < 14 ) =QL : D < 15 ) =QH : D < 16 ) =AF 
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3420 D<17)=CF;D <18>=NF:D<19)=MF:D<20)=CL:D<21>=CH:D<22>=L2:D<23>=Y2:D<24>=L3 
3430 D < 25 )=Y3:D < 26 >=EC:D < 27 > =E1 !D < 28 >=E2:D < 29 >=E3: 0 <30 > =T 
3440 D <3 1 ) =0 1 :D<32>=02:D<33)=Ci3:D<34)=C1 :D<35>=C2:D<36>=C3 
3445 0PEN1,1,1,M$+" DATI" 

3450 FORI=0TO36 5 PRINTtt1,D< I ):NEXT 

3452 CL0SE1 

3453 IFRIGHT*<M*,1>="0"THEN 3530 
3455 0PEN2,1 , 1 ,MS>+ " NOTE" 

3465 FORI=0TOKK:PRINT#2,NT$CI): NEXT 

3466 CL0SE2 

3467 0PEN3,1,1,M^+" BREAK5 " 

3468 FORI=0TOKK- 1:PRINT#3,IN<I):NEXT 
3470 CL0SE3 

3480 0PEN4,1,1,M^ +" TIME" 

3490 FORI=0TOKK-1 :PRINT«4,TM<I>:NEXT 
3500 CL0SE4 

3530 PRINT"a***********FINE REGISTRAZIONE*********** 

3532 PRINT"PREMI JgRETURNH PER UN'ALTRA RE6ISTRAZIONE 

3533 PRINT" tf-IOME ■ PER USCIRE" .^23* 

3534 GETUU*:IFUU*=""THEN3534 

3535 IFASC(UU$)=13THEN3255 

3536 IFASC <UUSO = 19THENRC = 0:GOTO250 
3540 G0T03534 

3600 REM * *SUBROUTINE TEMPORIZZAZI ONE*** 

3601 REM 1-LETTURA 

3605 IFD>VL-ECTHEND = 0 *POKEL,VL +(MFAND240):G0T03170 
3607 IFD< >0THEN226 

3610 IFTI-TP< =TM<KK+1J/VETHEN3610 
3620 TP=TI 
3630 IFEC = 0THEN243 
3640 G0T0226 
3700 REM 2-SCRITTURA 
3705 IFD< >0THEN229 
37 10 TM< KK + 1) = < TI-TP)* TP =TI 
3720 G0T03315 

4000 REM *****ISTRUZIONI ******** 

4010 PRINT"m* * * * * *SINT CODER-SINTESI MUSICALE*******" 

4020 PRINTTAB< 10) "MEMCOMANDI SPECIALI" 

4030 PR INTTAB < 2 > " MB RETURN ■ DEFINIZIONE TOTALE DEL SUONO" 

4040 PRINTTAB<2)"Da # ■ LETTURA-SCRITTURA SU NASTRO" 

4050 PRINTTAB<2>"a CLEAR ■ RESET" 

4060 PRINTTAB<2)“a DELETE ■ END" 

4070 PRINTTAB<10)"HSa E 9 PER USCIRE" 

4080 IS=1:GETA*:IFAS=""THEN4080 
4090 IFA$="E"THENIS=0!GOTO250 
4100 GOTO440 

4500 REM******»****FINE***************** 

5000 REM ********************** ***MARCOGIUSTI,1984*** 

8000 PRINT!PRINT"PREMI RETURN® PER ASCOLTARE I y MOTIVO" 

9000 PRINT" aHOME ■ PER USCIRE" 

9100 GETH*:IFH*=""THEN3148 
9200 IFASC<H*)=13THENVE=1:GOTO3160 
9300 IFASC <) = 19THENSL =1 !GOTO2S0 
9400 G0T03148 

10000 REM ******SINT CODER****** 

20000 REM ********************** 

READY. 


***** IV VERSIONE****** 
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BREAKOUT 



di Marco Belli 


Chi non ricorda uno dei primi e più diffusi 
videogiochi da BAR: il famoso BREAKOUT? 
Questo programma ne è la riproposta per i 


possessori dell'ORIC... un REVIVAL dei 
videogiochi!! 
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1 D C" M ^ ^ 'X' X” X* X X X X X X> X X X X X X X X X X X/ X X X 


2 REM* * 

3 REM* BREAK-OUT * 

4 REM* * 

5 REM* ORIC-1 LIST 1985 * 

6 REM* * 


^ L_) j M X 'X* X X X X X x x x x x x x x x x x x x x x x x x x 

/ ! \ C I I ^ X -X ^ «T 1 ^ ^ -T 1 ^ ^ ^ ^ >fv 

8 PR=0:PN=0 

9 IFPN> PRTHENPR-PN 

10 RESTORE 

20 FORI=0TO7:READA 
30 POKE46840+I,A 
40 NEXTI 

50 DATA64,76,94,127,127,94,76,64 
60 FORI=0TO7 
70 READB 

80 P0KE46376+I,B 
90 NEXT 

100 DATA64,64,64,124,124,76,76, 76 

110 FORI=0TO7 

120 READC 

130 P0KE46384+I,C 

140 NEXTI 

150 DATA64,64,64,79,79,76,76,76 

160 FORI=0TO7 

170 READD 

180 POKE47080+I,D 

190 NEXTI 

200 DATA64,64,64,127,127,64,64,64 

210 FORI=0TO7 

220 READE 

230 POKE47064+I,E 

240 NEXTI 

250 DATA76,76,76,76,76,76,76,76 

260 FORI=0TO7 

270 READF 

280 P0KE46832+I,F 

290 NEXTI 

295 DATA0,0,0,0,0,0,0,0 :GOSU820000 

300 IFM=0THENM=1:GOSUB21000 

301 LORES0:GOSUB12000 

302 F0RI=26T01STEP-1 

303 PLOT 1 


304 NEXTI 
310 PLOT 1, 1, “g," 

320 FORI=2T037 
330 PLOTI,1, "} " 

340 NEXTI 

350 PL0T38, 1, 11 x “ 

360 FORI=2T026 

370 PL0T38,I,"C:NEXTI 

371 GOSUB6000 :PLOT0,25,CHR$C6D:BN=3 :SC=0 
:B=0 :GOSUB13000 :GOTO1017 

372 M1 = 17 : M2=M1 + 1 :M3=Ml+2 

373 PLOTM1,25,">" 

374 PL0TM2,25,">" 

375 PL0TM3,25,"}" 

385 I=48620 

387 D=RNDC13+.5:ONDGOTO810 
390 POKEI,95 
395 GOSUB10050 
397 GOSUB10050 

399 1 = 1+41 :IFPEEKC13 <33THEN440 

400 GOSUB5000 

402 IFPEEKCID=123THENI=I-41 :GOTO810 
405 IFPEEKCID=125THENI=I-41:D=1:GOTO1050 
410 IFPEEKCI3=91THENGOSUB8000: 1 = 1-41 :GOT 
0700 

420 IFPEEKCIJ=93THENGOSUB7000: 1 = 1-41 :GOT 
0700 

440 IFI>#BFB8THEN1000 
450 POKE1-41,32 
470 GOTO390 
600 POKE1,95 
605 GOSUB10050 
610 GOSUB10050 

620 1 = 1-41 : IFPEEKCI3<33THEN680 
625 GOSUB5000 

630 IFPEEKCID=125THENI=I+41:GOTO810 
640 IFPEEKCI3=123THENI=I+41:GOTO700 
650 IFPEEKCID =38THEN1 = 1+41 :GOTO390 
660 IFPEEKCID=91THENGOSUB8000: 1 = 1+41 :GOT 
0810 

670 IFPEEKCID = 93THENGOSUB7000:1 = I+41 :GOT 
0810 

680 POKE1+41,32 
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690 GOTO600 
700 POKEI,95 

710 GOSUB10050 :GOSUB10050 

715 I=I-39:IFPEEKCI3<33THEN740 

716 GOSUB5000 

720 IFPEEKCI3=125THENI=1+39:GOTO390 
730 IFPEEKCI3 = 1 23TFIENI = 1+39:GOTO600 

732 IFPEEKCID=37THENI=I+39:GOTO810 

733 IFPEEKC 13=91 TPIENGOSUB8000 : 1 = 1+39 :GOT 
0390 

734 IFPEEKCI3=93THENGOSUB7000: 1 = 1+39 :GOT 
0390 

740 POKEI+39,32 
750 GOT0700 
810 POKEI,95 

820 GOSUB10050:GOSUB10050 
825 1=1+39:IFPEEKCI3<33THEN850 
827 GOSUB5000 

830 IFPEEKCI3=123THEN1=1-39:GOTO390 

840 IFPEEKCI3 = 125THEN1 = 1-39:D=0: GOTO 1050 

841 IFPEEKC13=91THENGOSUB8000: 1 = 1-39:GOT 
0600 

842 IFPEEKC13=93THENGOSUB7000: 1 = 1-39 = GOT 
0600 



850 IFI>#BFB8THEN1000 
870 POKEI-39,32 
880 GOTO810 
927 GOSUB5000 

1000 FORI=2T037:PLOT1,25," " :NEXT 
1010 GOSUB5000:WAIT200 

1015 BN=BN-1 : IFBN=0TPtEN2$ = "GAMEOUER" :PLO 
T16,15,2$ :G0T09 

1017 2$= "PALLE RIMASTE = , ‘+STR$CBN3 + ' , P 

UNTI " 

1018 PLOT 1,0,2$ 

1020 G0TO372 

1050 N=I : IFB=108THENGOSUB6000:B=0 

1055 J=M1+#BF91-40:I=N 

1056 IFI=J-1THEN600 
1060 IFI=J THEN600 


1065 IFI = J +1 ANDD = 1 TFIEN700 

1070 IFI=J+1ANDD=0THEN600 

1080 IFI=J + 2THEN700 

1090 GOT0700 

5000 S0UND1,80,0 

5010 PLAY 1,0, 1,200 

5020 RETURN 

6000 REM 

6005 FORJ =0TO5 

6010 FORI=2T037STEP2 

6030 PLOTI,J+6,"[" 

6040 PLOTI+1,J+6,"3" 

6050 NEXTI 

6052 T*=J/2:ONT*GOTO6056,6057 

6055 PLOT0,J+6,CHR$C13 :GOTO6060 

6056 PLOT0,J+6,CHR$C23:GOTO6060 

6057 PLOT0,J+6,CHR$C43 
6060 NEXTJ :RETURN 

6999 REM 

7000 POKEI,32:P0KEI-1,32 

7050 J*=C I-#BB813/40:GOSUB9000 
7080 B=B+1 
7100 RETURN 

7999 REM 

8000 POKEI,32:P0KEI + 1,32 

8050 J*=C I-#BB803/40 ; GOSUB9000 
8080 B=B+1 
8100 RETURN 

9000 T*=C14-J*3m2:PN=PN+5*T* 

9010 PLOT30,0,STR$CPN3:RETURN 
10050 A=PEEKC#2DF3AND127 

10060 IFA=8THEN10100 
10070 IFA=9THEN10150 
10080 RETURN 
10100 IFM1=2THENRETURN 
10110 M1=M1 — 1 

10120 PLOTM 1+3,25, " " :PLOTM 1,25, ,: > " 
10130 RETURN 

10150 IFM1+2=37THENRETURN 
10160 M1=M1 + 1 :PL0TM1-1,25," " 

10170 PLOTM1+2,25,">" 

10180 RETURN 

12000 2$=CHR$C163+CHR$C13+CHR$C123+" 
BREAKOUT"+CHR$C83+CHR$C33 
12010 2$=2$+" RECORD "+STRSCPR3 
12015 FORI=0TO39:POKE4BB80+I,32:NEXT 
12020 F0RI=1T0LENC2$3 
12030 POKE4BB7F+I,ASCCMID$C2$, 1,133 
12040 NEXT 
12050 RETURN 
13000 P0KE42DF,0 

13010 2$=CHR$C123+"PREMI UN TASTO... 
"+CHR$C83 
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13020 Q$="’R’=S T 0 P"+CHR$ C83 
13030 PL0T6,16,2$ :PL0T15,18,Q$ 

13040 GETA$: IFA$="R"THENHIRES:TEXT:END 
13050 PL0T6,16," 

" :PL0T15,17," 

II 

13055 PLOT 13,18," 

13060 WAIT150:RETURN 
20000 FORI=0TO7 
20010 READH 
20020 POKE46808+I,H 
20030 NEXTI 

20040 DATA64,255,255,255,255,255,255,255 

20050 FORI=0TO7 

20060 READN 

20070 POKE46824+I,N 

20080 NEXTI 

20090 DATA64,254,254,254,254,254,254,254 
20095 FORI = 1TO26':PLOT0, I,5:NEXT 
20100 RETURN 

21000 TEXT:PAPER0:INK7:CLS 
21010 PRINT 

21020 PRINTCHR$C43 ;CHR$C273 ,*"J" ;CHR$C273 
;"A XXX ";CHR$C27DV'N 

" ; 

21025 PRINTCHR$C273 ;"E BREAKOUT" ; 

21030 PRINTCHR$C273 ;"A" ;CHR$C273 ;*'J XXX" 
;CHR$C273 ; "G";CHR$C43 

21035 PRINT:PRINT:PRINT:PRINT" )))) 

>)}>}>>>}}>>})>>}} 


21096 PRINT:PRINT:PRINT :PRINT" )>> 

}>>>>>>>>)>}})>>)) 

II 

21100 PRINT :PRINT 

22030 PRINT" " ;CHR$C273 ;"B CONTROL 

LI TASTIERA" 

22040 PRINT :PRINT" <). 

SINISTRA":PRI NT 

22050 PRINT" CSPA2I03.ST 

OP":PRINT 

22055 PRINT" >>.DEST 

RA" :PRINT 


22060 PRINT :PRINT" >>>>>>))>>>)>>) 

}>>>}> ":PRINT 

22065 PRINT :PRINT 

22070 PRINT" C’E’ IL CURSORE ? CS/N3":G 
ETA$ 

22080 IFA$="S"THENPRINTCHR$C173:GOTO2210 
0 

22090 IFA$<>"N"THENGETA$:GOTO22080 
22100 PRINT" C’E’ IL CLICK DEL TASTO ?CS 
/N3" :GETA$ 

22110 IFA$="S"THENPRINTCHR$C63:CLS:RETUR 
N 

22120 IFA$<>"N"THENGETA$-G0T022110 
22130 CLS :RETURN 


21055 PRINT:PRINT:PRINT" P U N T 

E G G I 0 " :PRINT :PRINT :p 

RINT 

21060 PRINT" " ;CHR$C273 ;"A [][][] _ 

_15 PUNTI "iPRINT 

21070 PRINT" " ;CHR$C273 ;"B [3C3 [ 3_ 

-10 PUNTI " :PRINT 


21080 PRINT" " ,*CHR$C273 J"C C ] C 3 C ]_ 

.5 PUNTI " :PRINT 

21085 PRINT SPRINT :PRINT :PRINT" )>>) 

>>>>}>>>>>>>))>>>}" 

21090 PRINT :PRINT :PRINT" PREflI UN TASTO 
PER CONTINUARE":GETA$ 

21091 TEXT:PAPER0:INK7:CLS 

21092 PRINT 

21093 PRINTCHR$C43 ;CHR$C273 ;"J" ,‘CHR$C273 

;"A XXX "JCHR-C273 ;"N 

Il ■ 

3 

21094 PRINTCHR$C273;"E BREAKOUT" ; 

21095 PRINTCHR$C273 ;"A";CHR$C273 j"J XXX"| 
;CHR$C273 ;"G" ;CHR$C43 
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ASTRO WAR 


di Saverio Forestiero 

Il programma, mette particolarmente in mostra 
una delle qualità del Sega, la grafica. Sullo 
sfondo di un pianeta sperduto in quale chissà 
remota galassia due caccia da combattimento 
si inseguono in un duello all'ultimo colpo. La 
struttura del gioco è semplice, un videogame di 
tiro a segno su un bersaglio mobile. 
Attenzione! per poter giocare è d'obbligo usare 


il joystick inserito nella porta più vicina alla 
tastiera. Il gioco è abbastanza difficile e 
bisogna essere piuttosto veloci con la cloche. 
Vi renderete conto di aver colpito l'avversario 
dal suono prolungato che ascolterete nel 
vostro monitor o TV. Degno di nota è lo sfondo 
del gioco interamente disegnato in alta 
risoluzione a colori. 
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10 REM ******************************* 

20 REM * ASTRO LIAR di SAUERIO FORESI 
I ERO * 

30 REM * 

* 

40 REM ******************************* 


50 CLS :SCREEN 2,2 :CLS :PRINT CHR$(173 
60 C0L0R8,1,(0j 0 3-(254, 191 3,1 :S0UND3,2 
00 , 1 

70 PRINT :PRINT :PRINT :PRINT " A 

STRO WAR" 

80 PRINT :PRINT " Copyright 1984" :P 
RINT :PRINT " by" 

90 PRINT :PRINT " — SAU. FO. —" 

= 1 TO 1000 :NEXT T 
L)N = 400 :PU=0 
(0,403-C160,1603,4 
C 0,42 3 -C158,1603,4 
C0,503-C150,1603,4 
C 0,55 3-C 145, 1603,4 
(0,653-C135,1603,4 
(0,753-C120,1603,4 
C0,903-C100,1603,4 
(0,1153-C75,1603,4 
(0, 145 3 -C 45,1603,4 
(0,463-C10,473,4 
C0,523-C20,553,4 
C0,613-C30,633,4 
(0,703-C40,703,4 
C0,843-C50,783,4 
C0,1003 -(60,85 3,4 
C0,1243 -C70,933,4 
C 0, 154 3 -C 80,1003,4 
C 38,1603-C90,1083,4 
C 72,160 3 - C 100, 1 153,4 
(98,160 3 -(1 10,1223,4 
(116,1603-(120,1303,4 
(130,1603-(130,1363,4 
(142, 160 3 -(140, 1453,4 
(152, 160 3 -( 150, 1523,4 
(0,453-(154,1603,4 
(0,1613-(255,1613,4 
!4,4,(0, 162 3-(255,191 3,1 


100 FOR T 
110 CLS :M 
120 LINE 

!! 130 LINE 
140 LINE 
150 LINE 
160 LINE 
170 LINE 
180 LINE 
190 LINE 
200 LINE 
210 LINE 
220 LINE 
230 LINE 
240 LINE 
250 LINE 
260 LINE 
270 LINE 
280 LINE 
290 LINE 
300 LINE 
310 LINE 
320 LINE 
330 LINE 
340 LINE 
350 LINE 
360 LINE 
370 LINE 
380 COLOR 


390 CIRCLE(200,303,20,6,1,0,1,BF 
400 FOR Q=0 TO 8 STEP 4 
410 CIRCLE(200,303,25+ Q,11, .2, .9, .6 
420 NEXT Q:TIME$ = "00:00 :00" 

430 PATTERNS40,"07010107FC070000" 

440 PATTERNS#1,"E08080E03FE00000" 

450 S=STICK(13:K=STRIG(13 
460 IF S=1 THEN X=X:Y=Y-32 
470 IF S=2' THEN X=X+32 :Y=Y-32 
480 IF S=3 THEN X=X+32:Y=Y 
490 IF S=4 THEN X=X+32 : Y=Y+32 
500 IF S=5 THEN X=X:Y=Y+32 
510 IF S=6 THEN X=X-32 : Y=Y+32 
520 IF S-7 THEN X=X-32:Y=Y 
530 IF S=8 THEN X=X-32:Y=Y-32 
540 IF Y<=9 THEN Y=9 
550 IF Y> = 160 THEN Y=160 
560 IF X<=1 THEN X=1 
570 IF X> =250 THEN X=250 
580 MAG2 

590 SPRITE0,(X,Y3,0,9 

600 SPRITE1,(X+16,Y3,1,9 

610 PATTERNS42,"07010107FC070000" 

620 PATTERNS43,"E08080E03FE00000" 

630 F=INT(RND(13*143+2 

640 IF K=1 THEN SOUND4, , 15 :GOSUB 820 

650 LINE (0,1613-(255,1613,F 

660 LINE (0,423-(158,1603,F 

670 IF K=1 THEN SOUND5, , 15 : GOSUB 820 

680 LINE (0,653-(135,1603,F 

690 X0=INT(RND(13*903+90 

700 Y0=INT(RND(13*903+40 

710 IF K=1 THEN S0UND4, , 15 : GOSUB 820 

720 SPRITE2,(X0,Y03,2,5 

730 SPRITE3,(X0+16,Y03,3,5 

740 IF K=1 THEN S0UND5,, 15 : GOSUB 820 

750 IF TIME$> = "00:01 :30" THEN 780 

760 IF MUN<=0 THEN 780 

770 SOUND0 : GOTO 450 

780 CLS - C0L0R5,1,(0,03-(255,1913,1:PRI 
NT CHR$(173 ; " GAME OUER":SOUND0 
790 PRINT :PRINT :PRINT " SCORE "JP 
U 

800 FOR T =1 TO 1000 :NEXT T :PRINT CHR$( 
163 

810 GOTO 110 

820 IF ABS(X0-X+(L<533<=16 AND ABS(Y0- 
Y+(L<53 3 <=16 THEN SOUND 1,400,15 :PU=PU + 
10 

830 MUN=MUN-5:RETURN 
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PAROLIAMO 



di Ettore Fruscoloni 

Una versione adatta al SEGA del famoso 
«HANGMAN». 

Si gioca in due persone, la prima introduce nel 
computer la parola che l'avversario deve 
indovinare. La difficoltà del gioco è legata alla 
lunghezza della parola introdotta ed al numero 
degli errori che si possono commettere nei 
tentativi (non più di 6). 

Maggiore è il numero di caratteri che 


compongono la parola, minore è il numero di 
errori che si possono commettere. Dopo un 
certo numero di tentativi, se non si è 
indovinata la parola, scatta una musichetta che 
l'autore, nelle REM che accompagnano il 
listato, ha definito, in verità con una nota di 
pessimismo, marcia funebre. Abbastanza 
curata la grafica nella presentazione. Note di 
spiegazione sono inserite nel listato. 


































PfìROLIAnO 


1 REn PAROLIAUO 

2 REM OTTOBRE 1984 

5 REH ETTORE FRUSCOLONI 

6 REH 

7 REn 

8 REn PRESENTAZIONE DEL GIOCO 

10 GOSUB 1000 

19 SCREEN 1, 1 :CLS :C0L0R1,2 

20 CLJRSOR 14,9:PRINT "*********" 

30 CURSOR 14 5 10:PRINT "PAROLIANO" 

40 CURSOR 14, 11 .'PRINT "YYXXXXYYX" 

45 PRINT :PRINT :PRINT 

50 PRINT "ISTRUZIONI 
55 PRINT "-" 

60 PRINT "Questo gioco e’ una variante 
de II’ IN- PICCATO. Si gioca In due per 
sone . " 

o5 PRINT "Un giocatore inserisce una p 
arola e l’altro deve indovinarla sen 
za commet" 

70 PRINT "tere piu’di un certo numero 
di errori" 

75 PRINT : PRI NT : PRINT " BUON 

DIUERTINENTO 

76 PRINT " === =============='■ 

77 FOR 1= 1 T02000 : NEXT I 

80 PRINT : PRI NT :PRINT : PRINT =PRINT 
"Per iniziare premi la barra spaziatri 

11 

85 PRINT "ce. " 

90 X$=INKEY$ 

100 IF X$OCHR$C323 THEN GOTO 90 

101 REN INIZIO DEL GIOCO 
105 PRINT :CLS:C0L0R1,9 

110 INPUT "Inserisci una parola Cmax.2 
0 lettere 3 " ;P$ 

111 IF LENCP$3>20 THEN PRINT :PRINT :PR 
INT "La parola che hai inserito ha 
LENCP$3 ; " caratter l" :PRINT :PRINT :PRI 


NT : GOTO 110 

115 PRINT :CLS :C0L0R1,10 

120 L=LEN C P$ 3 

121 IF L <=5 THEN T=6 

122 IF L> 5 AND L<=7 THEN T=5 
125 IF L> 7 THEN T=4 

130 PRINT "Il tuo compagno ha Inserito 
una paro-" 

135 PRINT "la di ";L; M lettere. INDOUI 
NALA 2 2 2 " 

140 R$=LEFT$C "." j L3 


150 AF$ = " ABCDEFGHIJKLNNOPQRSTUDLIXYZ" 
160 REN ELABORAZIONE GIOCO 
165 PRINT :PRINT :PRINT :PRINT :PRINT 
170 PRINT "Puoi commettere " >Tj" error 


II 


180 PRINT 
190 PRINT 
UARE...:" 
195 PRINT 
200 PRINT 
205 PRINT 
210 PRINT 
? " ,*K$ 


:PRINT R$ 

:PRINT "LETTERE CHE PUOI PRO 


AF$ 

: INPUT "QUALE LETTERA SCEGLI 


220 IF K$ = "" THEN 210 

230 FOR 1 = 1 TO LEN C AF$ 3 

240 IF niD$CAF$,I, 1 3=K$ THEN AF$=niD$C 

AF$, 1, I-1 3+NID$CAF$, 1 + 13 .'GOTO 270 

250 NEXT I 

260 PRINT : PR INT "LETTERA GIÀ’ SCELTA" 

■•GOTO 210 

270 RED LETTERE 

280 F = 0 : FOR 1 = 1 TO L 

290 IF niD$CP$, I ,13=K$ THEN F=l:R$=MID 
$CR$,1, 1-13+K$+niD$CR$, 1 + 13 
295 NEXT I 

300 IF R$=P$ THEN GOSUB 600:GOTO 400 
310 IF F=0 THEN T=T-1 
320 IF T>0 THEN CLS:GOTO 160 
' 330 PRINT 



n 
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340 REM PERDITE! 

345 GOSUB 700 
350 PRINT :PRINT 

360 PRINT :PRINT "NON HA I INDOUI NATO 22 
LA PAROLA ERA 
370 GOTO 500 
380 PRINT 
400 RE LI UINCITA 

410 PRINT :PRINT :PRINT "BRAUISSIMO HA 
I IND0UINAT02 2 2 " 

420 PRINT 

500 FOR B=1 TO LENCP$3 
510 PRINT MID$CP$,B, 13 5 
520 BEEP 

530 FOR C=0 TO 100:NEXT C,B 

540 PRINT :INPUT "Uuoi giocare ancora 

S/'N ? " ;U$ 

550 IF U$="S" OR U$= M SI" THEN GOTO 105 

560 IF U$="N" OR U$="NO" THEN END 

600 FOR H=1 TO 15:REn MUSICA UINCITA 

610 S0UND5,0,15:FOR L=5 TO 25:NEXT :SO 

UND5,1,15 

620 NEXT H ■ SOUND0 

630 RETURN 

700 FOR 1=0 TO 20 : REM MARCIA FUNEBRE 

710 S0UND2,131,15:NEXT I 

715 SOUND0 

720 FOR 1=0 TO 20 

725 S0UND2,131,15:NEXT I :SOUND0 

730 FOR 1=0 TO 5 

735 S0UND2,131,15 :NEXT I :SOUND0 

740 FOR 1=0 TO 10 


745 SOUND2, 131,15 :NEXT I :SOUND0 :PRINT 
SPRINT 

750 FOR 1=0 TO 20 

755 S0UND2, 156,15 :NEXT I :SOUND0 

760 FOR 1=0 TO 5 

765 S0UND2,147,15 :NEXT I :SOUND0 

770 FOR 1=0 TO 5 

775 S0UND2,147,15 :NEXT I :SOUND0 

780 FOR 1=0 TO 20 

785 S0UND2,131,15:NEXT I :SOUND0:PRINT 

730 FOR 1=0 TO 20 

735 S0UND2, 131, 15 :NEXT I :SOUND0 

800 FOR 1=0 TO 5 

805 S0UND2, 123,15 :NEXT I :SOUND0 

810 FOR 1=0 TO 5 

815 S0UND2, 131,15 :NEXT I :SOUND0 

820 RETURN 

1000 SCREEN 2,2 : CLS : REM GRAFICA PRESEN 
TA2I0NE 

1005 COLOR 1,15,C10,103-C50,503,15 
1010 LINE C87,753-C167,753,1 
1020 LINE C87,753-C87,1153,1 
1030 LINE C167,750-C167, 1 153,1 
1040 LINE C87,1153-C167,1153,1 
1050 CURSOR 100,30 : PRI NT "PAROLI AMO" 
1070 PAINT C85,753,6 

1075 FOR J=0 TO 6 :S0UND5,3,15 

1076 FOR 1=0 TO 15 

1080 COLOR 1,I,C87,753-C167,1153,I 

1081 NEXT I 

1082 NEXT J 

1085 SOUND0 : FOR 1 = 1 TO 10:BEEP:NEXT I 
1030 RETURN 
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BIORITMI 



di Paolo De Maria 

Il programma è stato distinto in due parti: la 
prima contiene le istruzioni, la seconda, 
lanciata automaticamente, il corpo vero e 
proprio. 

Come molti sicuramente già sapranno i 
BIORITMI sono quei cicli (fisici, intellettuali, ed 
emotivi) che hanno inizio con la nascita e che 
ci accompagnano per tutta la nostra esistenza; 
condizionano così la sfera fisica, intellettiva ed 
emotiva di ciascun individuo e tutte le azioni e 
relazioni che si presentano quotidianamente. 

Il programma offre all'utente la possibilità di 


conoscere esattamente la propria situazione 
bioritmica, nonché quella delle persone con cui 
è o verrà a contatto in un giorno specifico. 
Tutto ciò attraverso una scheda bioritmica 
dettagliata che permette la visione, e quindi di 
conoscere, l'evoluzione di questa situazione nei 
successivi quindici giorni. 

È possibile calcolare la situazione bioritmica 
anche in periodi passati (per esempio quella di 
personaggi storici) purché con date posteriori 
al 1582 anno in cui venne adottato il 
calendario Gregoriano. 


































READY. 


10 
15 
£0 
£5 
30 
35 
40 
45 
50 
55 
60 
65 
70 
75 
80 
85 
90 
95 
98 
100 
1 10 
1 1£ 
1 13 
1 14 
1 16 
1 18 
1£0 
1 £5 
130 
140 
150 
160 
170 


REM*************** 
REM 

REM - BIORITMI - 
REM 

REM PAOLO DEMAR IA 
REM 

REM VIA SCIESA 14 
REM 

REM 10078 VENARIA 
REM 

REM (T O R INO) 
REM 

REM TEL.011/493548 
REM 

REM*************** 

REM 

REM PARTE PRIMA 
REM 



REM*************** 

PR INT"iJ" s PQKE36879 ,8 
pri NT- marni .— N 
PRINT"| | 

PRINT”| 1 . 

PRINT” |—| -, ^ K + 

PRINT"| | | 

PRINT"| | | 

PRINT" >—> 

PRINT”SM 


I I 
I I 

*w» 

BY 


_l _L V. 

PAOLO 


III I 
III I 

JJJ JL 

DEMAR IA3" 

FORT =1TO3000:NEXT 

PRINT" J"CHRS< 14 ) "fl H" 

PRINT'^L PROGRAMMA FORNISCE,DOPO AVER INSERITO LA DATA IN CUI SI VUOLE" 

PRINT"LA PREVISIONE E LA DA-TA DI NASCITA,LA SCHE-DA BIORITMICA DEL" 

PRINT"GlORNO DESIDERATO PIU’L'AGENDA BIORITMICA DEI 15 GIORNI SUCCES- SIVI 


180 PRINT"VI POSSONO OTTENERE PREVISIONI DALL'ANNO 1600 AL £ 100 .— NECES-" 

190 PRINT"OSAR IO PERO'DIGITARE LEDATE IN FORMA NUMERICAE COMPLETA :ES. 1 4 1985 *" 
£10 GOSUB 1000 

£50 PRINT"Lia L~I ~/—* SI" 

£60 PRINT"Ua+»l = GIORNO POS ITIVO" ' PRINT" S 39~*3 = GIORNO NEGATIVO" 

£70 PRINT"^a-»a| = GIORNO CR ITI CO " s PR I NT " Sfltt—= VERTICE POSITIVO" 

£80 PRINT"SBH- 1 »* = VERTICE NEGATIVO" 

£85 PRINT"MS - ' IMPORTANTE RICORDA-RE QUESTI SIMBOLI PER UNA CORRETTA COMPREN-" 
£87 PRINT"SIONE DELLA SITUAZIONEBIOR ITMICA SEGUENTE.SS" 

£90 GOSUB 1000 

300 PRINT"iJB 8 PREMI a ,_ L> l'B E ATTENDI*" 

310 POKE 198,7 s POKE 63 1 , 76 !P 0 KE 63 S ,£07 !P 0 KE 633,13 !P 0 KE 634 , 8 £!P 0 KE 635,£13 :P 0 KE 636,1 
3 

400 END 

1000 PRINT" »—I3P REMI UN TASTO" 

1010 GETAS:IFA^=""THEN 1010 

1080 RETURN 

READY. 





















READ'P. 


2 

3 

4 

5 

6 

7 

8 

9 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 
19 
22 

23 

24 

25 

26 
30 
3 1 
40 
45 
80 
8 1 
106 
1 10 
122 
123 

130 

131 


REM*** ******9* 
REM 

BIORITMI 


PAOLO DEMAR IA 


VIA SC TESA 


10078 VENARIA 


(TORINO) 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

REM TEL.011/493542 
REM 

REM*************** 

REM 

REM PARTE SECONDA 
REM 

REM*************** 

PRINT"LH"CHR*<14)SP0KE36879,8 SPRINT 
PRINT M S-ATA IN CUI DESIDERI" 

PR INT"LA PREVISIONE: II" 

INPUT "SIGI ORNO " * A 
IFA >31ORA<1THEN25 
INPUT"MESE ";A1 
IFA 1>120RA1<1THEN30 
B =0 

GOSUB10000 
INPUT"ANNO ";C 
IFC <1600ORC >2100THEN80 
PRINT:PRINT 

PRINT"3-ATA DI NASCITAi01" 

INPUT"GlORNO";D 
IFD >3 1ORD <1THEN122 
INPUT"MESE ";B1 
IFB1>120RB1<1THEN130 


—S KT—. 
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136 E =0 

137 GOSUB11000 
140 H=E-D 

150 INPUT"ANNO ■ J F 

151 IFF<1600ORF>2100THEN150 

152 PR INT" TTENDERE " 

153 IFF >CTHENGQT09 
156 GOSUB12000 
158 PRINT 
160 X = (C-F ) - 1 
130 Y=<X*365)+Z 
200 Ul=CA+B+H+Y)+1 
300 K =U1- < 1 NT < UI/23 ) *23 ) 

320 L=UI- < I NT < W/28 ) *28 ) 

340 M=Ul-< INT<W/'33>*33> 

341 IFK=0THENK=23 

342 IFL = 0THENL =28 

343 IFM=0THENM=33 

350 IFK=10RK=120RK=13THENF*= "^C " 

355 IFK=60RK=7THENFS="UDA" 

357 IFK = 18THENF$= "3CB " 

360 IFK >1ANDK< 12ANDK< >6ANDK< >7THENFs$= "U+" 

375 IFK>13ANDK<24ANDK< >18THENF*="g-■ 

377 IFK = 0THENF^="|i+" 

380 IFL=10RL=15THENE*="k.C" 

382 IFL > 1 ANDL < 15ANDL < >7ANDL< >8THENE*= " H+ ■ 

385 IFL > 15ANDL<29ANDL< >22THENES= "3- " 

387 IFL=70RL=8THENE$="HCA" 

380 IFL=22THENE*="3CB" 

382 IFL = 0THENES= "|i+" 

395 IFM=10RM=170RM=18THENI$="kC" 

397 IFM>1ANDM<17ANDM< >9THENI$="H+" 

400 IFM>18AKDM< 34ANDM<>26THENI^="3-" 

405 IFM=9THEN1^= "IICP " 

410 IFM=26THENI$="gCB" 

412 IFM=0THENI*="il+" 

420 IFFL=1THEN1010 
500 PRINT" :PRINTCHR*<142) 

515 PRINT: PRINT ,, IMtaÉTfl;f=ll;C 

520 PR I NT " HSI" : PR I NTTAB < 1 ) " | FIS | " ; TAB < 9 ) "EMO | " ; TAB < 15 ) " I NT | " 
PRINT" I 


PRINT"3SCHEDA BIORITMICA DEL" 


I * 


530 

535 PRINT" | 

540 PRINTTAB < 1 ) 

550 PRINT" | 

555 PRINT" | 

560 PRINTTABC1) 
*;TAB< 19) "MIM" 

570 PRINT:PRINT 
600 GOSUB5000 
650 FL =1 
1000 PRINT"J" 

1005 PRINT"fl AGENDA 


:PRINT" F 


4 


4- 


I " 


;tab<3)k;tab< 7>" i ";tab<9>l;tab< 13)- i 

I |": PRINT" |-1-1- 


jtab<15>m;tabc19) 
—I " 


I - 


";TABC4) " 3" F^ * TAB(7) "«31 " ) TAB (. 10) " a"E$; TAB < 13) "«ai " J TAB ( 16) "3" I 


10 10 
10 1 1 
10 12 
1013 
10 14 


BIORITMICA ST : PRINTTAB <6)"3F 

f 

aa"A;TAB(7)F*;TAB(12)ES;TABC17)1* 


IS" ;TAB<11)"flEMO";TAB<16)"aiNT 


PRINTTAB <0) 

A =A + 1 

IFA =31ANDA1 = 110RA = 31ANDA1=40RA=31ANDA1=60RA = 31ANDA1=9THENA=1 
IFA=29ANDA1=2THENA=1 
IFA=32THENA=1 
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1015 
10 16 

1019 

1020 
1022 
1023 
1030 
1040 
1050 
5000 
5010 
5020 

1 0000 
10002 
10004 
10006 
10008 
100 10 
100 12 
100 14 
10016 
100 18 
10020 
10022 
10050 
1 1000 
1 1002 
1 1004 
1 1006 
1 1008 
110 10 
110 12 
1 1014 
1 10 16 
1 1018 
1 1020 
1 1022 
1 1030 
12000 
1200 1 
12002 

12003 

12004 
12006 
12 100 
22000 
220 10 
23000 
230 10 
23015 
23020 
23022 
23025 
23030 
23035 
23040 

READY 


K =K + 1 

IFK =24THENK =1 
L =L + 1 

IFL=29THENL=1 
M=M+ 1 

IFM=34THENM=1 
CO=CO+1 

IFCO=15THEN23000 
GOTO350 

PRINT" SPREMI UN TASTO” 

GETA*:IFA*=”"THEN5010 
RETURN 

IFA1=1THENB=0 
IFA1=2THENB=31 
IFA1=3THENB=59 
IFA1=4THENB=90 
IFA1=5THENB=120 
IFA1=6THENB =151 
IFA1=7THENB =181 
IFA1=8THENB=212 
IFA1=9THENB=243 
IFA1=10THENB=273 
IF A 1 = 11THENB =304 
IF A 1 = 12THENB = 334 
RETURN 

IFB1=1THENE=365 
IFB1=2THENE = 334 
IFB1=3THENE =306 
I FB 1=4THENE=2?5 
I FB 1=5THENE =245 
IFB 1=6THENE=214 
IFB 1=7THENE=184 
I FB 1=8THENE=153 
IFB1=9THENE=122 
IFB1=10THENE=92 
IFB 1=11THEME=61 
IFB1 = 12THENE =3 1 
RETURN 

FORT =1600TO2100STEP4 
IFT =1700ORT=1800ORT =1900ORT=2100THENGOSUB22000 
IFT>FANDT<CTHENZ =2 + 1 
IFT=FANDB1<3THENZ=Z + 1 
IFT=CANOA1>2THENZ=Z + 1 
NEXTT 
RETURN 
T=T+4 
RETURN 

PRINT”MMMMFREMI UN TASTO" 

GETAS:IFA*=""THEN23010 

PRINT”U"CHR*< 14 > :PRINT"a I—I■" 

PR INT" H®< Si" SPRINT” M— l- L’ALTRA PREVISIONE" 

PRINT"SHJ2-| ERMINARE ” 

INPUT“lfflM»--| l_^ !■"; JJ* 

IFJ J3>="1"THENRUN 

IFJJ^="2"THENPRINT"JMBBffiBBa8BHia FINE PROGRAMMA " s PR I NT : PR I NT i END 

GOTO23020 
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TASTI FUNZIONE 


di Stefano Ronconi 

Questo programma, costituito da una parte in 
BASIC ed una in linguaggio macchina permette 
di assegnare ai 1 2 tasti funzione delle stringhe 
personali. 

Dato il RUN, le prime quattro stringhe immesse 
vengono assegnate automaticamente ai tasti 
funzione FI, F3, F5 e F7; le successive ai tasti 
funzione con SHIFT (F2, F4, F6 e F8) e le ultime 
quattro ai tasti funzione con il tasto CBM (F9, 
FI 0, FI 1, FI 2): le stringhe non possono essere 
più lunghe di 10 caratteri. 

Se, per esempio, avete definito FI come LIST, 
premendo FI avrete il listato del programmma. 


Una volta immesse tutte le stringhe, potete 
dare anche il NEW: il codice macchina è in 
memoria e potete usare i tasti funzione. 
Ricordate che per il RETURN dovete usare il 
tasto in alto a sinistra contrassegnato dalla 
freccia, per fermare l'esecuzione RUN/STOP e 
RESTORE e per ricominciare dovete digitare 
SYS 755. 

Il programma non va ad interessare l'area 
BASIC: ciò comporta che l'usodi cartucce ad 
innesto distruggerà le vostre stringhe e 
qualsiasi tentativo di usare i tasti funzione 
causerà un errore. 


TASTI FUNZIONE 

T-<=»S-TI F^LJh>l2 IONE 


1 REM********************** 

2 REM* TASTI FUNZIONI * 

3 REM* * 

4 REM* DI STEFANO RONCONI * 

5 REM* VIA A. COSTA 2 * 

6 REM* 20026 NOVATE MIL. * 

7 REM* TEL. 02/3541443 * 

3 REM********************** 

9 PRINT"iJHBffTASTI FUNZIONE" 

10 FORI=673T0765:READJ:POKEI,J:NEXT 

20 P =820 :FORI = 1T07STEP2* GOSUB100 :NEXT:FORI=2T08STEP2:GOSUB100 :NEXT 
30 FORI=9T012 :GOSUB100 :NEXT:SYS755:EMD 

100 I$=STR*C I ) : PR INT" F "R IGHT$>C I*,LEN< ISO-l ) " , : INPUT 1$: IFLENC I * ) =0THEN200 

105 IFLEN< ISO >10THENI$=LEFT*<1$,10) 

110 FORJ = 1T0LEN<1$):A=ASC<MID$(1$,J,1)): IFA=95THENA=13 
120 POKEP, A : P = P + 1 :NEXT 
200 POKEP,0 :P=P+1 : RETURN 

1000 DATA 165,197,197,0,240,73,133,0,162,1,201,39,240,15,232,201,47,240,10,232,20 

1.55.240 

10 10 0ATA5,232,201 ,63,208,50,173,14 1,2,4 1 ,3,240,16,20 1 ,3,240,39,232,232,232,232, 
201,1 

1020 DATA240,4,232,232,232,232,160,0,202,240,8,200,185,51,3,240,247,208,248,185, 

52.3.240 

1030 DATA7,157,119,2,232,200,208,244,134,198,76,191,234,169,161,141,20,3,169,2,1 

41,21,3 

1040 DATA96 

READY. 






























OKlt 1 jS jTRIKEl! 



SALTA LA RANA 


di Fabrizio Cu mi netti 


CRÀ-CRÀ la rana venuta dallo stagno è arrivata 
in città. 

Ma che traffico!! Quante automobili, quanti 


furgoni sfrecciano su e giù a tutta velocità! 
Volete aiutare CRÀ-CRÀ ad attraversare la 
strada senza farla diventare una... frittata? 



15 

REM# 

# 

20 

REM# S6LT6 L6 R6N6 

# 

25 

REM# 

# 

30 

REM# F.C. STRIKE LIST-84 

# 

35 

REM# 

# 

40 

REM######################## 

45 

REM 


50 

REM 


55 

CLS 


56 

PR1 NTCHR$( 63CHR$ C173 


57 

RE=700 


58 

GOSUB8000 REM U.D.G. 


59 

GOSUB9000 


60 

PU = 0 


65 

U=5 


70 

P6PER7:INK0 


80 

GOSUB5000 REM PREPARA 

SCHERMO 

90 

GOSUB3000 


95 

F0RA = 2T026:S=I NTCRNDC13X23 + 1 :PLOT0 


S :NEXT 

96 PLOT0,14,16 
100 6-26 
110 B=19 

112 PL0T9,0,STR$CPU3 
120 PLOTB,6," 

125 PL0T1,24,6$:PL0T1,22,B$ : PL0T1,12,A$ 
: PLOT 1, 10,B$ 

130 X$=KEY$ 

140 IFX$=""THEN160 
160 IFX$=" ;"THENA=A~1 


165 Q=SCRNCB,AD 

170 IFX$=".’’ANDA<26THENA=A+1 

175 PLOT 1,14,C$ 

180 IFX$="2"6NDB>1TMENB=B-1 

190 IFX$="X’'ANDB<37THENB=8+1 

200 PL0T1,20,6$:PL0T1,18,B$: PL0T1,8,6$: 

PLOT 1,6,B$ 

210 PL0T1,16,6$:PL0T1,4,6$ 

220 Q-SCRNCB,61 

225 IFQ=61THENPU=PU+100:PING:PLOT9,0,STR 
$CPU3 :GOTO100 

230 IFQ<>32THEN4000 REM-PERDE 1 UIT6 
235 IFPU-500THENGOSUB7000 
•240 PLOTB,6, '‘#$" 

250 L$=LEFT$ C 6$, 13 :R$=RIGHT$CA$,37 3 
255 L2$=LEFT$CC$,373 :R2$=RIGHT$CC$,13 
260 L1$=LEFT$CB$, 373 :R1$=RIGHT$CB$,13 
270 6$=R$ + L$ :B$ = R1$ + L1$ 

275 C$=R2$+L2$ 

280 GOTO120 
3000 6$=" ’ * 

, * „ 

3010 B$="^&< x& xi, 

x& " 

3015 C$="/ 

li 

3020 RETURN 

4000 EXPLODE :LJ6IT50 

4001 U=U-1 : IFU-0THEN6000 
4010 PL0T21,0,STR$CU3■ 
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4030 G0T0100 
5000 CLS 

5010 PL0T3,0,"PUNTI " :PLOTl,0,1 :PL0T15,0 
j "UI TE 5":PLOT10,0,7 :PLOT 

0 , 0,20 

5020 FORA=0TO37:PLOTA,2,"="= NEXT 
5025 PL0T26,0," RECORD " 

5028 PLOT34,0,STR$CRE3 
5030 PLOT0,2,0 
5040 PLOT0,14,16 

5050 FORA=1T026:S=INTCRNDC13*53+1=PLOT0, 
6, S 

5060 RETURN 
6000 PL0T22,0,"0": 

6010 UJA1 T300 : CLS 

6020 PRINT : PRI NT:PRINT : PRINT"SFORTUNATO 2 
2HAI PERSO TUTTE LE UITE2" 

6030 PRINT :PRINT'TIA HAI RAGGI UNTO PU 

" PUNTIS" 

6040 IFPU>RETHENPRINT :PRINT:PRINT"ORA HA 
I IL NUOUO RECORD DI ";PU" 

PUNTI 2 " 

6050 IFPU>RE THENRE=PU 

6060 PRINT:PRINT:PRINT n UUOI GIOCARE ANCO 
RA? S/N" 

6070 GETA$ 

6080 IFA$-"N"THENEND 
6090 IFA$="S"THENG0T059 
6100 GOTO6070 

7000 PL0T3,14, "ED ORA ANCORA PIU..DIFFIC 
I LE 2 2 2 2 2 " 


7010 

A$=" ’ x > 3 

11 

» X 


» X 

7020 

C$="/ / / 

/ 

/ 

/ 

/ 

7040 

B$= " z& 

x%. 

’ C 

xg, X 


& 

7045 PU=PU+200:PL0T9,0,STRSCPU3 
7050 UAIT300: PLOT3,14, " 

li 

7060 RETURN 


8000 FORA=46360TO46423 
8010 READD 
8020 POKEA,D 
8040 NEXT 
8045 RETURN 

8050 DATAI,3,5,15,7,2,4,8,32,48,40,60,56 

,16,8,4,63,63,63,63,63,63,2 

4,24 

8060 DATA48,48,48,63,63,63,6,4 

8070 DATA3,3,3,63,63,63,24,24,48,48,48,6 

3,63,63,6,6 

8080 DATA0,0,31,31,31,63,1,1,0,0,60,60,6 
0,63,32,32 

9000 PAPER0:INK7:CLS 

9010 2$= " SALTA LA RANA SALTA LA RANA 

li 

9020 X$=CHR$ C 96 3 + " FABRI2I0 C. -STRIKE-L 

IST1984 

9030 REPEAT 

9040 PLOT1,2,2$:PL0T1,26,X$ 

9050 G$=LEFT$C2$,37 3: F$=RIGHT$C2$,13 
9060 2$=F$+G$ 

9070 T$=LEFT$CX$,373:T$=RIGHT$CX$,13 
9080 X$=T$+T$ 

9090 PLOT0,4,"AIUTA LA RANA AD ATTRAUERS 
ARE LA STRADA" 

9100 PLOT0,6,"SE CI RIESCI...100 PUNTI 0 
GNI UOLTA 2" 

9110 PLOT0,8,"PROUACI.E BUONA FORTUN 

A222222" 

9120 PLOT0,12,"USA I TASTI 

9130 PLOT0,14,"2 - SINISTRA X - D 

ESTRA 

9140 PLOT0,16," ; - SU . - G 

IU" 

9150 PL0T4,22,"PREMI UN TASTO PER COMINC 
I ARE" 

9160 PL0T2,22,12 
9170 A$=KEY$ 

9180 UNTILA$ <>"" 

9190 RETURN 



90 
































ELECTRONIC MASTERMIND 


di Luca Bonguerri 

Questo gioco rappresenta la versione 
computerizzata deformai classico MASTER 
MIND. 

Il computer sceglie una sequenza casuale di 4 
colori che il giocatore deve indovinare in non 
più di 10 tentativi. 


È disponibile una gamma di 7 colori che 
possono essere ripetuti più di una volta nella 
stessa sequenza, il che renderà sicuramente 
più difficile questo gioco di logica e riflessione. 
È consigliabile servirsi di una unità video a 
colori (televisore o monitor). 



10 REM 
20 REM 
30 REM 
40 REM 

50 REM E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3 
E3E3E3E3E3E3E3E3E3E3E3E3 

60 REM ELECTRONIC MASTER MINO 

70 REM 1384- by 

80 REM LUCA BQNGUERRIERI 

30 REM UIA DEI PLATANI 25/D/23 

100 REM 16139- GENOUA 


110 REM TEL. C0103 886714 

120 REM E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3 

E3E3E3E3E3E3E3E3E3E3E3E3 

130 REM 
140 REM 
150 REM 
160 REM 

170 CLR :TEMP06:DIMQC33:DIMSC33 =G0SUB 920 
180 G0SUB1010 

190 COLOR,,7,1:PRINT"0":PRINTC2,0]"S00BM 
ASTER MIND ELETTRONICO":PRINT 
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200 MUSIC "-C-C-C":F0RF=1TO2500:NEXT 
210 PRINT"0" : PRINT[3,0] , 'EEEBEEEBBBSIND 
OUINA I COLORI 2" 

220 MUSIC"-D-D":FORA=1TO2500 :NEXT 

230 PRINT:PRINT[4j0]"EBBBEBEEBBBLA SE 

QUEN2A E'COMPOSTA DA 4 COLORI " 

240 MUSIC"-E-E":FORB=1TO3500:NEXT 

250 PRINT"0": PRINT[4,0]"fflfflfflfflfflfflfflfflBBC'E'L 

'EUENTUALITACCHE SIANO RIPETUTI" 

260 MUSIC"-F-F" =FORG=1 TO3500 :NEXT :PRINT" 
0" 

270 PRINTL6,0]"BEBEBBBHAI 10 POSSIBILITÀ 
' PER INDOUINARLI":PRINTL6,0]"BBBBTUTTI" 
280 MUSIC"-C1-DI-E1-FI-Gl-Al" 

290 FORT=1TO2000:NEXT 

300 PRINT[4 5 0 ] "BEE0BBBBUONA FORTUNA2" 

310 MUSIC"-CI-DI-E1—FI—Gl—Al —B1CI"=FORU= 

1 T0-3000 '-NEXT 
320 PRINT"0" 

330 PRINT"IL SEGNO + SIGNIFICA COLORE Gl 
USTO AL POSTO GIUSTO" 

340 PRINT"IL SEGNO - SIGNIFICA COLORE Gl 
USTO AL POSTO SBAGLIATO" 

350 FORR=1TO2000:NEXT:PRINT:PRINT:PRINT: 
PRINT 

360 PRINTC7,03TABC23 

*****************":PRINT 

370 PRINTC7,03TABC123"CODICE COLORI:" 

380 PRINT" 13 Nero" :PRINT" 21 Rosso ": 
PRINT" 33 Porpora" :PRINT" 43 Uerde":PR 
INT" 53 Azzurro":PRINT" 63 Giallo":PRI 
NT" 73 Bianco":PRINT:PRINT 
390 CURS0R2,19:PRINT"83 Correzione'" 

400 CURS0R3,21:PRINT"PREMI UN TASTO PER 
GIOCARE" 

410 PRINT: PRINTI7,03TABC23 "******* 

SU * ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ | I 

T* ^T* «T* 'T* 'T‘ -T* ‘T' ^T* /T* ^ <T* <T‘ ■T' ^T* 'T' «T* ^ ^ ^ ^ ^ ^ 




420 MUSIC"CRCRCRCR-E-E-E-E" 

430 GETA$ : IFA$=""THEN430 

440 :PRINT"E":N=1 

450 FORJ=0TO3 

460 SCJ3=INTC7*RNDC133+1 

470 NEXTJ 

480 A=SC03 :B=SC13 :C=SC23:D=SC33 

490 P=0:M=0:IFN=11 THEN 750 

500 GQSUB1200 :PRINT:PRINTC7 5 03TABC13N;"' 

";"TentatIuo : "; :PRINT" "; 

510 GOSUB1260 

520 IFCE=A3*CF=B3*CG=C3*CH=D3THEN860 

530 IFE=ATHENP=P+1:A=0 

540 IFF= : BTHENP=P+ 1 :B=0 

550 IFG=CTHENP=P+1:C=0 

560 IFH=DTHENP=P+1:D=0 

570 IFE=SC03THEN610 

580 IFE=BTHENM=M+1 :B=0:G0T0610 

590 IFE=CTHENM=M+1 :C=0:GOTO610 

600 IFE=DTHENM=M+1:D=0 

610 IFF=SC13THEN650 

620 IFF=ATHENM=M+1 :A=0:GOTO650 

630 IFF=CTHENM=M+1 -’C=0 :GOTO650 

640 IFF=DTHENM=M+1:D=0 

650 IFG-SC23THEN690 

660 IFG=BTHENM=M+1 :B=0 :GOTO690 

670 IFG=ATHENM=M+1:A=0:GOTO690 

680 IFG=DTHENM=M+1:D=0 

690 IFH=SC33THEN730 

700 IFH=BTHENM=M+1 :B=0:GOTO730 

710 IFH=CTHENM=M+1 :C=0:GOTO730 

720 IFH=ATHENM=M+1:A=0 

730 GOSUB1210 

740 G0SUB1340:N=N+1:GOTO480 

750 PRINT :PRINT" NON CI SEI RIUSCITO. UE 

RGOGNAT1222 LA SEQUENZA ERA:"; 

“060 GOSUB 1 350 

770 FORDA=1TO180:POKE2618,DA:USRC683:FOR 
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?0=1TO20:NEXT20,DA:LJSRC69 3 

780 F0RA=1TO3000:NEXT=CURS0R3,23 

790 PRINT :PRINT" UUOI FARE UN'ALTRA PART 

ITA9CS/N3" 

800 GETJ$ : IF J$="S"THENPRINT"@"=GOSUB137 
0 : GOTO440 

810 IF-J $="N" THEN840 

820 GOTO 800 

830 IFJ$="N"THEN840 

840 PRINT "B" : PRINT 11 ARRIUEDERCI 2 2 2 2 S 2 
2 2 2 2 2 2 " :nUSIC"+Cl-Cl" :PRINT:PRINT:PRINT 
850 END 

860 MUSIC"CI#D1CI#D1CI#D1":FORR=1TO2000: 
NEXT 

8.70 CURS0R3, 23 : PRINT"®" 

880 PRINT"0@BS@0000BHAI INDOUINATO":RRIN 

T 

890 PRINT"0000000000IN "; :PRINTN ; SPRINT" 
TENTATIUI" 

900 MUSIC"C1D1E1C1D1E1C1D1E1C1D1E1F1C1D1 
E1F1GlA1B1+C1+C1+C1":GOSUB970 
910 PRINT SPRINT :GOTO790 
920 FORL=1 T01 0-'PRINT"®" 

930 PRI NTC7, 0ITABC 1 03 "Sffl0SiffiES0ffliaFEC9FEC9 
MASTER MINDF5E9F5E9" 

940 Q=INTC5*RNDC133+2:COLOR,,,Q 

950 FORX=1TO500 :NEXTX:NEXTL 

960 MUSIC'EIRC1RC1RC1REIRCIRCIRC1RF1RF1R 

E1REIRD1D1D1DIRRF1RF1REI REIRD1RD1RAI RAIR 

G1RF1RE1RD1RC1C1C1C1": RETURN 

970 IFN<=5THENPRINT[7, 03TABC53 "EB1fflBSEI U 

N CAMPI ONE 2 2 2 ": GOT01000 

980 IFN<=8THENPRINT[7, 0 3TABC33 "MS1COMPL 

IMENTIj SEI MOLTO BRAU02":G0T01000 

990 IFN>8THENPRINT[7,03TABC33"EfflEffiMI SEM 

BRA CHE SIANO ECCESSIUI" 

1000 FORA=1TO4000:NEXT-RETURN 
1010 PRINT"®" 

1020 K=K+1 :IFK>7THENK=1 



1030 COLOR,,K,0:FORH=lTO400:NEXT 

1040 PRINT" C8C8C8C8 C8C8C8C8 C8C8C8C8 C 

8C.8C8 C8C.8C8 C8C8C.8C8" 

1050 PRINT" 95959595 95 95 95 95 9 

5 95 95" 

1060 PRINT" C8 08 C8C8C8C.8 C8C8C8C8 C8 
C3C8 C8C8C8C8" 


1 070 

PRINT" 

70 

70 

70 

70 

70 70 

70 

70 

1 080 

FEC8" 

PRINT"- 

70 

70 

70 

70 

70707070 

70 


707070 70 FE" 

1090 PRINT SPRINT 

1100 PRINT" 95959595 95 9595959595 95959 
59595" 

1110 PRINT" C8FEC9C8 C8 C8 FEC8C8 C8 C 
8 " 

1120 PRINT" 70 70 70 70 FE70 70 70" 

1130 PRINT" 70 70 70 70 70 70 70" 

1140 PRINT" C8 C8 C8 C8 C8 C8C8C.8C8C8 

•I 

1150 PRINT[7,03"SBSEEBSBBBUUOI LE ISTRU2 
I0NICS/N3?" 

1 160 FORDA=1T0100:P0KE2618,DA:QSRC683 : NE 
XTDA - USR C 69 3 

1170 GETJ$:IFJ$=""THENPRINT"0":GOT01020 
H80 IFJ$="N"THENCOLOR, , 7, 1 :MUSIC"C0D0E0 
F0G0A0B0+C0":F0RR=1TO1600:NEXT:MUSIC"+A4 
+A4" :GOTO440 

1190 F0RR=1TO2000:NEXT:RETURN 
1200 MUSIC"-C0+C0": RETURN 
1210 IFP=0THEN1230 

1220 FORICI TOP:PRINT[7,0]TABC303" + " ;:NEX 
T 

1230 IFM=0THEN1250 

1240 FORICI TOM:PRINT[7,03TABC343 "-" ;:NEX 
T 

1250 RETURN 
1260 FORI=0TO3 

1270 GETQCI3 : IFCQCI3=03 + CQC13=93THENÌ270 
1280 IFQCI3=1THENQCI3=0 

1290 IFQCI3=8THENPRI NT"00000000000000000 
0000000 

@00000000000000000000000";:G0T0500 
1300 PR I NT [, QC13 3 TAB C15 3 " "SPRINT" 11 ; 
1310 IFQCI3=0THENQC13=1 
1320 NEXTI :PRINT" " 

1330 E=QC 0 3 :F=Q C1 3 :G=QC2 3 :H=QC3 3 : RETURN 
1340 FORT=0TO3:QCT3=0:NEXTT: RETURN 
1350 FORK=0TO3:IFSCK3=1THENSCK3=0 
1360 PRINT[,SCK33" ";:PRINT" ";:NEXTK:P 
RINT" ": RETURN 

1370 MUSIC"+A+A+A+A+A+A+A+A":RETURN 
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SALISCENDI 

di Stefania Palombi 


Ecco un semplice gioco basato sull'abilità e 
sulla fortuna! Sullo schermo sono visualizzate 
10 carte di cui una scoperta; utilizzando i tasti 


del cursore dovete indovinare se la carta 
successiva è più alta o più bassa dell'ultima 
scoperta: vi sono concessi due errori! 



1 0 REM******************************* 

15 REM* SALISCENDI * 

20 REM* DI PALOMBI STEFANIA * 

25 REM* U. G. CHIOUENDA 20 -ROMA * 

30 REM* TEL.2484955 - SHARP M2-700 * 

35 REM******************************* 

40 COLOR,,0,6-PRI NT":F0RK=3T036 :C0L0RK 
,3, ,3:NEXT :F0RK=4T021 :C0L0R36,K, ,3:NEXT: 
F0RK=35T03STEP~1 =COLORK,21,,3:NEXT:F0RK= 
20TO4STEP-1 :C0LQR3,K,,3 :NEXT 
50 A$="SALISCENDICURSORI 5,8 :F0RK=1TOLE 
NC A$D:PRINTniD$CA$,K,1 D ; : POKE55630+K,134 


"GOSUB6000 ^NEXT : CURS0R5, 19 :PRINT"Uuoi I e 
istruzioni? C S/N I !l : GOSUB6030 
60 F0RK=14T025-COLQRKj 7,,4 :NEXT:CDL0R25, 
8,,4:F0RK=25T014STEP-1:C0L0RK,9,,4:NEXT: 
COLOR 14,8, ,4 
70 GET0$ : IF2#=" !T THEN70 
80 IF2$="S"THENGOSUB1000 

90 CURSOR0,23 :PRI NT[7,0]"ScegI i il I iueI 
lodi dif ficoit a'C1/2D "; -DI HAC101 

100 GET2$ : IF2.$ ="1 "THEN130 
110 IF2$-"2"THEN180 
120 G0T0100 
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130 FORK=1TO10 

140 ACK3=INTCRNDC13*13+23 :FQRJ= 1TOK:IFJ = 
KTHEN170 

150 IFFiC J 3=ACK3THEN1 40 
160 NEXTJ 
170 NEXTK ^ G0T0210 
180 FORK=1TOI 0 

1 90 ACK3=INTCRNDC 1 3X13+23 : IFACK3=ACK-1 3T 
MENI 90 
200 NEXT 

210 H=0:GOSUB5000 : COLOR,,0,4 :PRINT"®":X= 

13 : T=1 :GOSUB3000 :X=21 :GOSUB3000:X=5:Y=8 : 

GOSUB3000 :X=13:GOSUB3000 :X=21 :GOSUB3000: 

X=29 :GOSL1B3000 • X=5 -T= 1 5 :GOSUB3000 :X=1 3 =G 

OSUB3000 :X=21 :GOSUB3000 : X=29:GOSUB3000 

220 CURSOR0,23:PRINTC7,0]"HELP DISPONIBI 

Li: 2 " J 

230 C=1 :X=5:T=15:GOSUB4000 

240 0=2 : X=13 :T=15 :G0SUB4100 

250 C=3:X=21 :Y=15 : G0SUB4100 

260 0 = 4 :X = 29:T=15 :G0SUB4100 

270 C=5:X=5:T=8:G0SUB4100 

280 0 = 6 :X=13:Y=8:GOSUB4100 

290 0=7 LX=21 :T = 8:G0SUB4100 

300 0=8:X=29:T=8:G0SUB4100 

310 0=3 :X=13 :Y=1 :G0SUB4100 

320 C=10:X=21 :Y=1 :GOSUB4100 

330 GOSUB6030:F0RJ = 1TO10 : CURSOR0,23 :PR I N 

T [ , 0 3 " 


1010 PRINT:PRINT:PRINT"PremI il tasto [T 
] se pensi che la cartasuccess ì^a sarò.' 
piu' alta, oppure il tasto [4] in caso 
contrario. " :RETURN 

3000 G0SUB6120:FORS = 0TO5:CURS0RX,Y+S :PRI 
NT C 7, 1]" F6F6F6F6F6 " :NEXTS : RETURN 
4000 FORS=0TO5:CURS0RX,Y+S:PRINT[,73" 

" :NEXTS :W=INT[RNDC 13X43 :1FLJ=0THENT$= ,, £ 
X - T=2 : GOTQ4040 

4010 IFU=1THENT4=" FA ":T=2:GOTO4040 
4020 IFW=2THENT$= "_Fg." :T=0 :GOTO4040 
4030 IFW=3THENT$="£J " :T=0 
4040 R$=STR$CACC33 
4050 IFACC3=14THENR$="A" 

4060 IFACC3=11THENR$="J" 

4070 IFACC3=12THENR$="Q" 

4080 IFACC3=13THENR$="K" 

4090 CURSORX+1,Y+1:PRINT[T,73T$:CURS0RX+ 
3,Y+1 :PRINTCT,73R$ : CURSORX+1,Y+4:PRINTET 
,7 3R$:CURS0RX+3,Y + 4 : PRI NT[T,73T$:GOSUB60 
20 : RETURN 

4100 GET2$ : IFCZ$="ffl"3 +C Z$= "51" 3THEN4120 
4110 G0TQ4100 

4120 IFCZ$="5T'3XCACC3>ACC-1 33THEN4190 
4130 IFCZ$="S)"3XCACC3<ACC-1 33THEN4190 
4140 IFH=2THEN4180 
4150 H=H+1 :CURSOR0,23:PRINTL7,03" 

HAI SBAGLIAT02 "5:G0SUB 

6010 :CURSOR0,23:PRINT[7,03"Per eh iedere 


" ; :CURSOR0,23 :PRINT[2, 73" 
BRAUISSIP1022 " ; :GOSUB60 

00-'NEXTJ 

340 CURSOR0,23:PRINTL7,23" 

HAI UINTQ2 2 2 "; :GOSUB6030 :G 

OSUB6120 

350 CURSOR0,23:PRINT[7,03"Se uuoi giocar 
e ancora premi<Y> 

360 GETZ$:IFZ$=""THEN360 
370 IF2$="Y"THEN90 

380 COLOR,,0,2:PRI NT"0" :F0RK=5T034: COLOR 
K,5,,6 : NEXT:F0RK=6T019:C0LÒR34,K, ,6:NEXT 
■'•F0RK=33T05STEP-1 :C0L0RK, 19, ,6:NEXT:F0RK 

= 1 8T06STEP-1 :C.0L0R5,K, ,6:NEXT 

390 A$="ARRIUEDERCI":CURS0R15,10:FORK=1T 

OLENC A$3:PRINTniD$CA$,K,13 5:GOSUB6000:NE 

XT =GOSUB6030:CURSOR0,23:END 

1000 PRINT"®" -'PRINTT ABC 1 53 " ISTRUZIONI" :P 

RI NT : PRINT ; PRINT"II gioco consiste nello 


aiuto premi<H> "; 

4160 GET2$ : IFZ$=""THEN4160 
4170 IFZ$="H"THEN4200 

4180 GOSUB6010 :CURSOR0,23:PRINTC7,0 3'" PII 
DISPIACE,HA NON POSSO PIU' AIUTARTI ";:G 
0SUB6120 :GOTO350 

4190 F0RJ=1TOI0:CURSOR0,23:PRINTC,03" 

" ; :c 

URSOR0,23:PRINT[7,03" ESA 

TT022 ";:GOSUB6000:NEXTJ 

4200 GOSUB4000:CURSOR0,23:PRINT[,03" 

" ; ’ if 

C=10THENRETURN 

4210 CURSOR0,23:PRINTC7,03"HELP DISPONIB 
ILI J2-H5 : RETURN 

5000 COLOR, ,7,1 : PR I NT " US " : CURSORI 4,5 :PRIN 
T" PRENDI AMO UN" -'PRINT : PRINT :PRINTTABC 1 2 3 
"PIAZZO DI CARTE2 2 " :&OSUB6030 
5010 FQRK=0TO7:POKE56096+K,113:POKE54048 
+K,67:G0SUB6100:NEXTK:F0RK=0TO15 :P0KE561 


scoprire le 10carte, cercando di ind 04 + K,113:POKE54056+K,67:POKE56096+K,17 : G 
opinare volta pervolta se la successiva 0SUB6100 :NEXTK 

e' piu' alta o piu' bassa della preced 5020 CURS0R14,5:PRINT' ‘ : PRIN 

ente." ; T:PRINT:PRINTTABC123" ":C 


95 

































URSOR16,20:PRINTC1 ,7]"*- 

5030 COLOR, ,0,7 :X = 0 :GOSUB5170:GOSUB6000: 
G0SUB6100 :X=2CURSORI 6,20:PRINT[7, 1 1" C2C 

2C2C2C2C2C2C2 ":G0SUB5170 :GOSUB6000:GOSUB 
61 00 

5040 X=4 : CURSORI 6,20 :PRINT[7, 1 3 "- 

" :G0SUB5170:GOSUB6000 =G0SUB6100 =X=6 ^CURS 
ORI 6, 20 :PRINTC , 1 .1 " " :GOSUB5170 :GO 

SUB6000 :G0SUB6100 

5050 Al=55437 :02=53389:B1=55515:B2=53467 
:'C1 =55593 :C2=53545 =D1 =55671 :D2=53623 
5060 F0RK=1T05:P0KEA1,33 :P0KEA2,83 :POKEB 
1,39:P0KEB2,68 =P0KEC1,7:P0KEC2,70:P0KED1 
,7 :P0KED2,65:G0SUB61 00 

5070 POKER 1,39 :P0KER2,68:P0KEB1,7:P0KEB2 
,70 :P0KEC1,7:P0KEC2,65:P0KED1,39:P0KED2, 
83.-GOSUB6100 

5080 P0KER1,7:P0KER2,70:P0KEB1,7 :P0KEB2, 
65 :P0KEC-1,39 :P0KEC2, 83 :P0KED1,39 :P0KED2, 
68 :G0SUB6100 

5030 P0KER1,7:P0KEA2,65:P0KEB1,39:P0KEB2 
,83:P0KEC1,39:P0KEC2,68 :P0KED1,7:P0KED2, 
70 :G0SUB6100 
5100 NEXTK:COLOR,,7, 1 

51 10 A=55630 : B = 1 7 : GOSUB51 80 : CURSOR 16,20.' 

PRINT"_" :GOSUB6000 :G0SUB61 10:0=55 

552:GOSUB5180-PRINTTABC16 3"S C2C2C2C2C2C2 
C2C2" 


5130 G0SUB6120 : CURSORI 0,10 : PRI NT"MESCOLI 
AMO IL HA2Z02" :GOSUB6030 :F0RJ = 1T03:GOSUB 
6120 

5140 FORK=0TO3:CURSOR15-K,20:PRINT"C2" :C 
URS0R23-K,20:PRINT”D8" : CURSOR16+K,20 : PRI 
NT"C2" : CURSOR24+K,20 :PRINT"D8" :G0SUB6100 
•NEXTK :CURSOR20,20 SPRINT” C2C2C2C2C2C2C2 
C2" : G0SUB6100 

5150 FORK = 0TO7 :P0KE56108+K,241 :POKE54060 
+K,118 :NEXTK:FORK=0TO7 -P0KE56116+K, 151 :P 
OKE54068+K,118:NEXTK:P0KE56124,17 
5160 FORK=0TO3 :P0KE56108+K, 17 :P0KE56123- 
K, 17 :P0KE561 15-K, 1 13 :POKE54067-K,67 :POKE 
561 16+K,113 :PQKE54068+K,67 :G0SUB6100 : NEX 
TK:GOSUB6020:NEXTJ : RETURN 
5170 CURSORI4+X,8-X:PRINT"EFC3C3C3C3F0": 
PRINTTABC14+X3"C5 C7":PRINTTABC14+X3" 

C.5 C7" ^PRINTTABC 1 4+XD "C5 C7"=PRINT 

T AB C14+X3"C5 07" : PRINTTABC14+X3"C5 
C7":PRINTTABC14+X3"C5 C7":PRINTTABC1 
4 + X 3"ECC4C4C4C4DA" : RETURN 
5180 FORK=0TO280STEP40 : POKEA+K j B ^ POKER+K 
+1,B:NEXTK:F0RK=242T0245:P0KER+K,17:P0KE 
A + K + 40, 17 :NEXTK-RETURN 
6000 TEMPO? :MUSIC"+C1": RETURN 
6010 TEMPO4 :MUSIC"-F5" 

6020 TEMPO? :MUSIC"+C0+D0+E0 + F0+G0+A0+B0" 
:RETURN 

6030 TEMP07 = MUSJ C"+C0+D0+E0+F0+G0+A0+B0R 


5120 GOSUB6000:G0SUB61 10 : A=55474:G0SUB51 

80 : PRINT [ 1,7JTABC 163 "ffl-" :GOSUB600 

0 ■ G0SUB6110 :PRI NT"B" :CURSOR16,20 :PRI NT"C 
800C8L8C8C8C3C8":GOSUB6000 


3+B0+R0+G0+F0+E0+D0":RETURN 
6100 F0RS=1T0100 :NEXTS: RETURN 
6110 F0RS=1TO500=NEXTS'RETURN 
6120 F0RS=1T01000=NEXTS:RETURN 



■ZL 






































































'Control 


c 



AVOIDER 
MV - 912 

Un robot intelligente che percepisce 
gli ostacoli mediante un raggio infra¬ 
rosso e li evita. 


* Movimento: 

3 gambe meccaniche per lato 

* Controllo: 

sensore a infrarossi comprendente 
diodo/foto diodo/IC infrarossi 

* Alimentazione (non inclusa): 
batterie da 1.5 V “AA” x 4 9V x 1 


LINE TRACER II 

MV - 913 (giallo) 

Guidato da un sensore a raggi infra¬ 
rossi questo robot segue qualsiasi li¬ 
nea nera tracciata su un foglio bianco. 


* Movimento: 

3 ruote guidate da 2 motori DC 

* Controllo: 

sensore a infrarossi comprendente 
diodo/foto diodo/IC infrarossi 

* Alimentazione (non inclusa): 

batterie da 1.5 V “AA” x 2 9V x 1 



MONKEY 

MV - 919 (giallo) 

Ordinare ad alta voce al robot di muo¬ 
versi (MOVE) o battere le mani: 
MONKEY, lo scimmiotto, inizierà 
ad avanzare con le braccia lungo la 
corda tesa sulla quale sarà stato posto, 
fermandosi poi da solo. 


* Movimento: 

2 braccia meccaniche. 

* Controllo: 

sensore di suono comprendente 
condensatore microfono/transistor 

* Alimentazione (non inclusa): 

batterie da 1.5 V “N” x 2 


NAVIUS 
MV - 938 

NAVIUS è un robot controllato me¬ 
diante dei dischetti programmabili. È 
in grado di riconoscere il bianco e il 
nero del dischetto programmato e 


quindi muoversi in avanti, a destra, a 
sinistra o fermarsi. 

Il dischetto programmato può essere 
usato alPinfinito. 

E possibile programmare altri dischi 
in modo da far compiere a NAVIUS 
vari movimenti. 



1I/\1HT 

mwvi 1 


MR. BOOTSMAN 

MV - 931 (blu) 


Distributore esclusivo per l’Italia: 



Via Flavio Stilicone, 111 - Roma 

Tel. (06) 766.54.95 - Telex 620159 TEXIMI 





Control 


B1A1IIT 
IVIWVI I 

CIRCULAR 

MV - 935 (verde) 




26 - 31 gennaio 1985 


23° SALONE 
INTERNAZIONALE 
DEL GIOCATTOLO 

Quartiere Fiera Milano 
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